home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / net_analyzer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  67.7 KB  |  2,465 lines
  1. /*****************************************************************************
  2.   FILE           : net_analyzer.c
  3.   SHORTNAME      : net_analyzer.c 
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        : a tool for analyzing neural networks
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Tobias Soyez
  10.   DATE           : 09.11.1993
  11.  
  12.   CHANGED BY     : Michael Vogt, Guenter Mamier
  13.   IDENTIFICATION : @(#)net_analyzer.c    1.7 4/21/94
  14.   SCCS VERSION   : 1.7 
  15.   LAST CHANGE    : 4/21/94  
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22. #include <math.h>
  23. #include <stdio.h>
  24. #include <malloc.h>
  25.  
  26. #include <X11/Xlib.h>
  27. #include <X11/Xutil.h>
  28. #include <X11/Xos.h>
  29. #include <X11/cursorfont.h>
  30. #include <X11/Intrinsic.h>
  31. #include <X11/StringDefs.h>
  32. #include <X11/Shell.h>
  33. #include <X11/Xaw/Box.h>
  34. #include <X11/Xaw/Simple.h>
  35. #include <X11/Xaw/Grip.h>
  36. #include <X11/Xaw/Form.h>
  37. #include <X11/Xaw/SmeBSB.h>
  38. #include <X11/Xaw/SmeLine.h>
  39. #include <X11/Xaw/Viewport.h>
  40. #include <X11/Xaw/Label.h>
  41. #include <X11/Xaw/Toggle.h>
  42. #include <X11/Xaw/Command.h>
  43. #include <X11/Xaw/Cardinals.h>
  44. #include <X11/Xaw/AsciiText.h>
  45. #include <X11/Xaw/Scrollbar.h>
  46.  
  47. #include "kr_typ.h"
  48. #include "kr_const.h"
  49. #include "kr_def.h"
  50. #include "kr_mac.h"
  51. #include "kernel.h"
  52.  
  53. #include "ui.h"
  54. #include "ui_xWidgets.h"
  55. #include "ui_textP.h"
  56. #include "ui_main.h"
  57. #include "ui_mainP.h"
  58. #include "kr_ui.h"
  59. #include "ui_remote.h"
  60. #include "ui_remoteP.h"
  61.  
  62. #include "on2.xbm"
  63. #include "line.xbm"
  64. #include "grid.xbm"
  65. #include "clear.xbm"
  66. #include "m_test.xbm"
  67. #include "record.xbm"
  68. #include "setup.xbm"
  69. #include "done2.xbm"
  70.  
  71. #include "xy.xbm"
  72. #include "ty.xbm"
  73. #include "te.xbm"
  74. #include "e_lin.xbm"
  75. #include "e_sqr.xbm"
  76. #include "e_su.xbm"
  77. #include "ave.xbm"
  78. #include "act.xbm"
  79. #include "out.xbm"
  80. #include "cancel.xbm"
  81.  
  82. #include "dctrl.xbm"
  83. #include "half.xbm"
  84. #include "double.xbm"
  85. #include "left.xbm"
  86. #include "lleft.xbm"
  87. #include "right.xbm"
  88. #include "rright.xbm"
  89. #include "up2.xbm"
  90. #include "uup.xbm"
  91. #include "down2.xbm"
  92. #include "ddown.xbm"
  93.  
  94. #include "net_analyzer.ph"
  95.  
  96.  
  97.  
  98. /*****************************************************************************
  99.   FUNCTION : NA_CreateButtonItem
  100.  
  101.   PURPOSE  : creates a button item
  102.   RETURNS  : button widget
  103.   NOTES    :
  104.  
  105.   UPDATE   : 
  106. ******************************************************************************/
  107.  
  108. static Widget NA_CreateButtonItem (char   *name,
  109.                                  Widget  parent, Widget left, Widget top)
  110.  
  111. {
  112.   Cardinal  n ;
  113.   Arg       arg[15] ;
  114.  
  115.  
  116.   n=0 ;
  117.  
  118.   if (strcmp (name, "clear") == 0)
  119.   { 
  120.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  121.               XDefaultRootWindow (ui_display), clear_bits, clear_width,
  122.               clear_height)) ; n++ ;
  123.   }
  124.  
  125.   if (strcmp (name, "m_test") == 0)
  126.   { 
  127.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  128.               XDefaultRootWindow (ui_display), m_test_bits, m_test_width,
  129.               m_test_height)) ; n++ ;
  130.   }
  131.  
  132.   if (strcmp (name, "setup") == 0)
  133.   { 
  134.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  135.               XDefaultRootWindow (ui_display), setup_bits, setup_width,
  136.               setup_height)) ; n++ ;
  137.   }
  138.  
  139.   if (strcmp (name, "done2") == 0)
  140.   {
  141.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  142.               XDefaultRootWindow (ui_display), done2_bits, done2_width, 
  143.               done2_height)) ; n++ ;
  144.   }
  145.  
  146.   if (strcmp (name, "cancel") == 0)
  147.   { 
  148.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  149.               XDefaultRootWindow (ui_display), cancel_bits, cancel_width,
  150.               cancel_height)) ; n++ ;
  151.   }
  152.  
  153.   if (strcmp (name, "dctrl") == 0)
  154.   { 
  155.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  156.               XDefaultRootWindow (ui_display), dctrl_bits, dctrl_width,
  157.               dctrl_height)) ; n++ ;
  158.   }
  159.  
  160.   if (strcmp (name, "half") == 0)
  161.   { 
  162.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  163.               XDefaultRootWindow (ui_display), half_bits, half_width,
  164.               half_height)) ; n++ ;
  165.   }
  166.  
  167.   if (strcmp (name, "double") == 0)
  168.   { 
  169.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  170.               XDefaultRootWindow (ui_display), double_bits, double_width,
  171.               double_height)) ; n++ ;
  172.   }
  173.  
  174.   if (strcmp (name, "left") == 0)
  175.   { 
  176.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  177.               XDefaultRootWindow (ui_display), left_bits, left_width,
  178.               left_height)) ; n++ ;
  179.   }
  180.  
  181.   if (strcmp (name, "lleft") == 0)
  182.   { 
  183.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  184.               XDefaultRootWindow (ui_display), lleft_bits, lleft_width,
  185.               lleft_height)) ; n++ ;
  186.   }
  187.  
  188.   if (strcmp (name, "right") == 0)
  189.   { 
  190.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  191.               XDefaultRootWindow (ui_display), right_bits, right_width,
  192.               right_height)) ; n++ ;
  193.   }
  194.  
  195.   if (strcmp (name, "rright") == 0)
  196.   { 
  197.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  198.               XDefaultRootWindow (ui_display), rright_bits, rright_width,
  199.               rright_height)) ; n++ ;
  200.   }
  201.  
  202.   if (strcmp (name, "up2") == 0)
  203.   { 
  204.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  205.               XDefaultRootWindow (ui_display), up2_bits, up2_width,
  206.               up2_height)) ; n++ ;
  207.   }
  208.  
  209.   if (strcmp (name, "uup") == 0)
  210.   { 
  211.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  212.               XDefaultRootWindow (ui_display), uup_bits, uup_width,
  213.               uup_height)) ; n++ ;
  214.   }
  215.  
  216.   if (strcmp (name, "down2") == 0)
  217.   { 
  218.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  219.               XDefaultRootWindow (ui_display), down2_bits, down2_width,
  220.               down2_height)) ; n++ ;
  221.   }
  222.  
  223.   if (strcmp (name, "ddown") == 0)
  224.   { 
  225.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  226.               XDefaultRootWindow (ui_display), ddown_bits, ddown_width,
  227.               ddown_height)) ; n++ ;
  228.   }
  229.  
  230.   XtSetArg (arg[n], XtNborderWidth   , 0          ) ; n++ ;
  231.   XtSetArg (arg[n], XtNinternalHeight, 1          ) ; n++ ;
  232.   XtSetArg (arg[n], XtNinternalWidth , 1          ) ; n++ ;
  233.   XtSetArg (arg[n], XtNfromVert      , top        ) ; n++ ;
  234.   XtSetArg (arg[n], XtNfromHoriz     , left       ) ; n++ ;
  235.   XtSetArg (arg[n], XtNleft          , XtChainLeft) ; n++ ; 
  236.   XtSetArg (arg[n], XtNright         , XtChainLeft) ; n++ ;
  237.   XtSetArg (arg[n], XtNtop           , XtChainTop ) ; n++ ; 
  238.   XtSetArg (arg[n], XtNbottom        , XtChainTop ) ; n++ ;
  239.  
  240.   return (XtCreateManagedWidget (name, commandWidgetClass, parent, arg, n)) ;
  241. }
  242.  
  243.  
  244.  
  245. /*****************************************************************************
  246.   FUNCTION : NA_CreateToggleItem
  247.  
  248.   PURPOSE  : creates a toggle item
  249.   RETURNS  : toggle widget 
  250.   NOTES    :
  251.  
  252.   UPDATE   : 
  253. ******************************************************************************/
  254.  
  255. static Widget NA_CreateToggleItem (char *name, Widget parent, Widget group, 
  256.                                    Widget left, Widget top)
  257.  
  258. { 
  259.   Cardinal  n ; 
  260.   Arg       arg[15] ;
  261.  
  262.  
  263.   n=0 ;
  264.  
  265.   if (strcmp (name, "on2") == 0) 
  266.   { 
  267.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display, 
  268.               XDefaultRootWindow (ui_display), on2_bits, on2_width, 
  269.               on2_height)) ; n++ ; 
  270.   }
  271.  
  272.   if (strcmp (name, "line") == 0) 
  273.   { 
  274.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display, 
  275.               XDefaultRootWindow (ui_display), line_bits, line_width, 
  276.               line_height)) ; n++ ; 
  277.   }
  278.  
  279.   if (strcmp (name, "grid") == 0) 
  280.   { 
  281.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  282.               XDefaultRootWindow (ui_display), grid_bits, grid_width, 
  283.               grid_height)) ; n++ ; 
  284.   }
  285.  
  286.   if (strcmp (name, "m_test") == 0)
  287.   { 
  288.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  289.               XDefaultRootWindow (ui_display), m_test_bits, m_test_width,
  290.               m_test_height)) ; n++ ;
  291.   }
  292.  
  293.   if (strcmp (name, "record") == 0) 
  294.   { 
  295.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  296.               XDefaultRootWindow (ui_display), record_bits, record_width, 
  297.               record_height)) ; n++ ; 
  298.   }
  299.  
  300.   if (strcmp (name, "xy") == 0) 
  301.   { 
  302.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  303.               XDefaultRootWindow (ui_display), xy_bits, xy_width, 
  304.               xy_height)) ; n++ ; 
  305.   }
  306.  
  307.   if (strcmp (name, "ty") == 0) 
  308.   { 
  309.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  310.               XDefaultRootWindow (ui_display), ty_bits, ty_width, 
  311.               ty_height)) ; n++ ; 
  312.   }
  313.  
  314.   if (strcmp (name, "te") == 0) 
  315.   { 
  316.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  317.               XDefaultRootWindow (ui_display), te_bits, te_width, 
  318.               te_height)) ; n++ ; 
  319.   }
  320.  
  321.   if (strcmp (name, "e_lin") == 0) 
  322.   { 
  323.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  324.               XDefaultRootWindow (ui_display), e_lin_bits, e_lin_width, 
  325.               e_lin_height)) ; n++ ; 
  326.   }
  327.  
  328.   if (strcmp (name, "e_sqr") == 0) 
  329.   { 
  330.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  331.               XDefaultRootWindow (ui_display), e_sqr_bits, e_sqr_width, 
  332.               e_sqr_height)) ; n++ ; 
  333.   }
  334.  
  335.   if (strcmp (name, "e_su") == 0) 
  336.   { 
  337.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  338.               XDefaultRootWindow (ui_display), e_su_bits, e_su_width, 
  339.               e_su_height)) ; n++ ; 
  340.   }
  341.  
  342.   if (strcmp (name, "ave") == 0) 
  343.   { 
  344.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  345.               XDefaultRootWindow (ui_display), ave_bits, ave_width, 
  346.               ave_height)) ; n++ ; 
  347.   }
  348.  
  349.   if (strcmp (name, "act") == 0) 
  350.   { 
  351.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  352.               XDefaultRootWindow (ui_display), act_bits, act_width, 
  353.               act_height)) ; n++ ; 
  354.   }
  355.  
  356.   if (strcmp (name, "out") == 0) 
  357.   { 
  358.     XtSetArg (arg[n], XtNbitmap, (Pixmap) XCreateBitmapFromData (ui_display,
  359.               XDefaultRootWindow (ui_display), out_bits, out_width, 
  360.               out_height)) ; n++ ; 
  361.   }
  362.  
  363.  
  364.   XtSetArg (arg[n], XtNborderWidth   , 0          ) ; n++ ; 
  365.   XtSetArg (arg[n], XtNinternalHeight, 1          ) ; n++ ; 
  366.   XtSetArg (arg[n], XtNinternalWidth , 1          ) ; n++ ; 
  367.   XtSetArg (arg[n], XtNfromVert      , top        ) ; n++ ; 
  368.   XtSetArg (arg[n], XtNfromHoriz     , left       ) ; n++ ; 
  369.   XtSetArg (arg[n], XtNleft          , XtChainLeft) ; n++ ; 
  370.   XtSetArg (arg[n], XtNright         , XtChainLeft) ; n++ ;
  371.   XtSetArg (arg[n], XtNtop           , XtChainTop ) ; n++ ; 
  372.   XtSetArg (arg[n], XtNbottom        , XtChainTop ) ; n++ ; 
  373.   XtSetArg (arg[n], XtNradioGroup    , group      ) ; n++ ;
  374.  
  375.   return (XtCreateManagedWidget (name, toggleWidgetClass, parent, arg, n)) ;
  376. }
  377.  
  378.  
  379.  
  380. /*****************************************************************************
  381.   FUNCTION : NA_ResetNetworkAnalyzer
  382.  
  383.   PURPOSE  : initializes global variables
  384.   RETURNS  : void
  385.   NOTES    :
  386.  
  387.   UPDATE   : 
  388. ******************************************************************************/
  389.  
  390. static void NA_ResetNetworkAnalyzer (void) 
  391.  
  392. {
  393.   na.window.x       =   0 ;
  394.   na.window.y       =   0 ;
  395.   na.window.w       = 300 ;
  396.   na.window.h       = 150 ;
  397.  
  398.   na.pixmap.x       =   0 ;
  399.   na.pixmap.y       =   0 ;
  400.   na.pixmap.w       = 300 ;
  401.   na.pixmap.h       = 150 ;
  402.  
  403.   na.graphtype      = NA_GRAPH_TE  ;
  404.   na.error          = NA_ERROR_SQR ;
  405.   na.error_unit     = 0 ;
  406.   na.ave            = FALSE ;
  407.   na.m_test         = 10 ;
  408.   na.period         = 1  ;
  409.  
  410.   na.hor.min        =   1.0 ;
  411.   na.hor.max        = 100.0 ;
  412.   na.hor.factor     = (float) na.graph.w / (float) (na.hor.max-na.hor.min) ;
  413.   na.hor.unit_no    = 0  ; 
  414.   na.hor.grid       = 10 ;
  415.   na.hor.out        = TRUE ;
  416.  
  417.   na.ver.min        = 0.0 ;
  418.   na.ver.max        = 1.0 ;
  419.   na.ver.factor     = (float) na.graph.h / (float) (na.ver.max-na.ver.min) ;
  420.   na.ver.unit_no    = 0  ; 
  421.   na.ver.grid       = 10 ;
  422.   na.ver.out        = TRUE ;
  423.  
  424.   na.toggles.on     = FALSE ;
  425.   na.toggles.line   = TRUE  ;     
  426.   na.toggles.grid   = FALSE ;     
  427.   na.toggles.record = FALSE ;     
  428.  
  429.   na.gd.time        = 1  ; 
  430.   na.gd.i           = 0  ;
  431.   na.gd.no_data     = TRUE  ;
  432.   na.gd.wrapped     = FALSE ;
  433.   na.rec_file       = (FILE *) NULL ;
  434.  
  435.   strcpy (na.rec_filename, "./SNNS_REC") ;
  436.  
  437.   strcpy (info_line, "\n") ;
  438. }
  439.  
  440.  
  441. /*****************************************************************************
  442.   FUNCTION : NA_NetworkAnalyzerIsOpen 
  443.  
  444.   PURPOSE  : returns true if the network analyzer widget is open, else false
  445.   NOTES    :
  446.  
  447.   UPDATE   : 
  448. ******************************************************************************/
  449.  
  450. Bool NA_NetworkAnalyzerIsOpen (void)
  451.  
  452. {
  453.   return (na_Open == 1) ;
  454. }
  455.  
  456.  
  457.  
  458. /*****************************************************************************
  459.   FUNCTION : NA_Error
  460.  
  461.   PURPOSE  : calculates the error
  462.   RETURNS  : float value of the error
  463.   NOTES    :
  464.  
  465.   UPDATE   : 
  466. ******************************************************************************/
  467.  
  468. static float NA_Error (void)
  469.  
  470. {
  471. #if 0
  472.   register struct   Unit *unit_ptr, *error_unit_ptr ;
  473.   register Patterns       out_pat  ;
  474.   register float          error_lin, error_sqr, error_su, devit ;
  475.  
  476.  
  477.   out_pat = out_patterns + (ui_noOfCurrentPattern - 1) * NoOfOutputPatterns ;
  478.  
  479.   error_lin = 0 ;
  480.   error_sqr= 0 ;
  481.   error_su  = 0 ;
  482.  
  483.   if (na.error_unit != 0)
  484.     error_unit_ptr = kr_getUnitPtr (na.error_unit) ;
  485.     
  486.   FOR_ALL_UNITS (unit_ptr)
  487.   {
  488.     if (IS_OUTPUT_UNIT (unit_ptr))
  489.     {
  490.       devit = (float) (*(out_pat++) - unit_ptr->Out.output) ;
  491.       error_lin += fabs (devit) ;
  492.       error_sqr += devit * devit ;  
  493.  
  494.       if (unit_ptr == error_unit_ptr) error_su = fabs (devit) ;
  495.     }
  496.   }
  497.  
  498.   switch (na.error)
  499.   {
  500.     case NA_ERROR_LIN : 
  501.     {
  502.       if (na.ave) return (error_lin / (float) NoOfOutputPatterns);
  503.       else        return (error_lin) ; 
  504.       break ; 
  505.     }
  506.  
  507.     case NA_ERROR_SQR : 
  508.     {
  509.       if (na.ave) return (error_sqr / (float) NoOfOutputPatterns);
  510.       else        return (error_sqr) ;
  511.       break ; 
  512.     }
  513.  
  514.     case NA_ERROR_SU :
  515.     {
  516.       return (error_su) ;
  517.       break ;
  518.     }
  519.   }
  520. #endif
  521. }
  522.  
  523.  
  524.  
  525. /*****************************************************************************
  526.   FUNCTION : NA_OpenRecordFile
  527.  
  528.   PURPOSE  : opens the record file
  529.   RETURNS  : void
  530.   NOTES    :
  531.  
  532.   UPDATE   : 
  533. ******************************************************************************/
  534.  
  535. static void NA_OpenRecordFile (void)
  536.  
  537. {
  538.   char buf[80] ;
  539.  
  540.  
  541.   sprintf (buf, "%s.rec", na.rec_filename) ;
  542.  
  543.   if ((na.rec_file = fopen (buf, "a")) == (FILE *) NULL)
  544.   {
  545.     ui_confirmOk ("can't open file") ;
  546.     fclose (na.rec_file) ; 
  547.     ui_xSetToggleState (t_Record, FALSE) ; 
  548.     na.toggles.record = FALSE ;
  549.   }
  550.   else
  551.   {
  552.     NA_WriteToRecordFile (info_line) ;
  553.   }
  554. }
  555.  
  556.  
  557.  
  558. /*****************************************************************************
  559.   FUNCTION : NA_CloseRecordFile
  560.  
  561.   PURPOSE  : closes the record file
  562.   RETURNS  : void
  563.   NOTES    :
  564.  
  565.   UPDATE   : 
  566. ******************************************************************************/
  567.  
  568. static void NA_CloseRecordFile (void)
  569.  
  570. {
  571.   fclose (na.rec_file) ; 
  572. }
  573.  
  574.  
  575.  
  576. /*****************************************************************************
  577.   FUNCTION : NA_WriteToRecordFile
  578.  
  579.   PURPOSE  : writes a string into the record file
  580.   RETURNS  : void
  581.   NOTES    :
  582.  
  583.   UPDATE   : 
  584. ******************************************************************************/
  585.  
  586. static void NA_WriteToRecordFile (char *str) 
  587.  
  588. {
  589.   if (na.toggles.record) fprintf (na.rec_file, str) ;
  590. }
  591.  
  592.  
  593.  
  594. /*############################################################################
  595.  
  596.                     D R A W I N G     F U N C T I O N S 
  597.  
  598. ############################################################################*/
  599.  
  600.  
  601. /*****************************************************************************
  602.   FUNCTION : NA_DrawCS 
  603.  
  604.   PURPOSE  : draws the coordinate system 
  605.   RETURNS  : void 
  606.   NOTES    :
  607.  
  608.   UPDATE   : 
  609. ******************************************************************************/
  610.  
  611. static void NA_DrawCS (void) 
  612.  
  613. {
  614.   char  buf[40]   ;
  615.   int   i, y, x   ;
  616.   int   dist, len ;
  617.   float f ;
  618.  
  619.   
  620.   XDrawRectangle (na_Display, na_Pixmap, na_GC, na.graph.x, na.graph.y,
  621.                   na.graph.w, na.graph.h) ;
  622.  
  623.  
  624.   /* --------------------  draw horizontal labels  ------------------------- */
  625.  
  626.   dist = 100 ;
  627.  
  628.   for (i = 0 ; i < na.hor.grid ; i++)
  629.   {
  630.     x   = (int) ((float) (i * na.graph.w)  / (float) na.hor.grid) ;
  631.     len = 3 ;
  632.  
  633.     if ((dist > 40) && (x < na.graph.w - 35)) 
  634.     {
  635.       f = (float) i / (float) na.hor.grid * (na.hor.max - na.hor.min) 
  636.           + na.hor.min ;
  637.  
  638.       if (f < 10000.0) sprintf (buf, "%6.5f", f) ;
  639.       else             sprintf (buf, "%6d"  , (int) f) ;
  640.  
  641.       XDrawString (na_Display, na_Pixmap, na_GC, na.graph.x - 18 + x, 
  642.                    na.graph.y + na.graph.h + 14, buf, 6) ;
  643.       len += 2 ;
  644.       dist = 0 ;
  645.     }
  646.  
  647.     XDrawLine (na_Display, na_Pixmap, na_GC, na.graph.x + x, 
  648.                na.graph.y + na.graph.h + len,
  649.                na.graph.x + x, na.graph.y + na.graph.h ) ;
  650.  
  651.     dist += (int) ((float) na.graph.w / (float) na.hor.grid) ;
  652.   }
  653.  
  654.   if (na.hor.max < 10000.0) sprintf (buf, "%6.5f", na.hor.max) ;
  655.   else                      sprintf (buf, "%6d"  , (int) na.hor.max) ;
  656.  
  657.   XDrawString (na_Display, na_Pixmap, na_GC, na.graph.x + na.graph.w - 18, 
  658.                na.graph.y + na.graph.h + 14, buf, 6) ;
  659.  
  660.   XDrawLine   (na_Display, na_Pixmap, na_GC, 
  661.                na.graph.x + na.graph.w, na.graph.y + na.graph.h, 
  662.                na.graph.x + na.graph.w, na.graph.y + na.graph.h + 5) ;
  663.  
  664.  
  665.  
  666.   /* ---------------------  draw vertical labels  ------------------------- */
  667.  
  668.   dist = 100 ;
  669.  
  670.   for (i = 0 ; i < na.ver.grid ; i++)
  671.   {
  672.     y   = (int) ((float) (i * na.graph.h)  / (float) na.ver.grid) ;
  673.     len = 3 ;
  674.  
  675.     if ((dist > 10) && (y < na.graph.h - 10 ))
  676.     {
  677.       f = (float) i / (float) na.ver.grid * (na.ver.max - na.ver.min) 
  678.           + na.ver.min ;
  679.  
  680.       if (f < 10000.0) sprintf (buf, "%6.5f", f) ;
  681.       else             sprintf (buf, "%6d"  , (int) f) ;
  682.  
  683.       XDrawString (na_Display, na_Pixmap, na_GC, 4, 
  684.                    na.graph.y + na.graph.h + 4 - y, buf, 6) ;
  685.       len += 2 ;
  686.       dist = 0 ;
  687.     }
  688.  
  689.     XDrawLine (na_Display, na_Pixmap, na_GC, 
  690.                na.graph.x - len, na.graph.y + na.graph.h - y,
  691.                na.graph.x      , na.graph.y + na.graph.h - y) ;
  692.  
  693.     dist += (int) ((float) na.graph.h / (float) na.ver.grid) ; 
  694.   }
  695.  
  696.   if (na.ver.max < 10000.0) sprintf (buf, "%6.5f", na.ver.max) ;
  697.   else                      sprintf (buf, "%6d"  , (int) na.ver.max) ;
  698.  
  699.   XDrawString (na_Display, na_Pixmap, na_GC, 4, na.graph.y + 4, buf, 6) ;
  700.  
  701.   XDrawLine   (na_Display, na_Pixmap, na_GC, na.graph.x - 5, na.graph.y,
  702.                na.graph.x, na.graph.y) ;
  703. }
  704.  
  705.  
  706.  
  707. /*****************************************************************************
  708.   FUNCTION : NA_DrawInfo
  709.  
  710.   PURPOSE  : displays information about the axis 
  711.   RETURNS  : void 
  712.   NOTES    :
  713.  
  714.   UPDATE   : 
  715. ******************************************************************************/
  716.  
  717. static void NA_DrawInfo (void)
  718.  
  719. { 
  720.   int          info_x, info_y ;
  721.   char         buf1[256], buf2[256], info[1024] ;
  722.  
  723.   
  724.   info_x = 0 ;
  725.   info_y = na.pixmap.h - INFO_BORDER ;
  726.  
  727.   XDrawLine (na_Display, na_Pixmap, na_GC, 0, info_y, na.pixmap.w, info_y) ;
  728.  
  729.   if (na.graphtype == NA_GRAPH_XY) 
  730.   {
  731.     if (na.hor.out) 
  732.       sprintf (buf1, "horizontal : output of unit no. %d", 
  733.                na.hor.unit_no) ;
  734.     else        
  735.       sprintf (buf1, "horizontal : activation of unit no. %d", 
  736.                na.hor.unit_no) ;
  737.   }
  738.   else
  739.     sprintf (buf1, "horizontal : time") ;
  740.  
  741.   XDrawString (na_Display, na_Pixmap, na_GC, info_x + 7, info_y + 11, 
  742.                buf1, strlen(buf1)) ;
  743.  
  744.   if (na.graphtype == NA_GRAPH_TE)
  745.   {
  746.     switch (na.error)
  747.     {
  748.       case NA_ERROR_LIN : 
  749.         if (na.ave)
  750.           strcpy  (buf2, "vertical   : error (lin ave)") ; 
  751.         else
  752.           strcpy  (buf2, "vertical   : error (lin)") ; break ;
  753.       case NA_ERROR_SQR : 
  754.         if (na.ave)
  755.           strcpy  (buf2, "vertical   : error (sqr ave)") ; 
  756.         else
  757.           strcpy  (buf2, "vertical   : error (sqr)") ; break ;
  758.       case NA_ERROR_SU  : 
  759.         sprintf   (buf2, "vertical   : error of output unit no. %d",
  760.                  na.error_unit) ; 
  761.         break ;
  762.     } 
  763.   }
  764.   else
  765.   {
  766.     if (na.ver.out) 
  767.       sprintf (buf2, "vertical   : output of unit no. %d", 
  768.                na.ver.unit_no) ;
  769.     else           
  770.       sprintf (buf2, "vertical   : activation of unit no. %d", 
  771.                na.ver.unit_no) ;
  772.   }
  773.  
  774.   XDrawString (na_Display, na_Pixmap, na_GC, info_x + 7, info_y + 21, 
  775.                buf2, strlen(buf2)) ;
  776.  
  777.   sprintf (info, "# %s # %s #\n", buf1, buf2) ;
  778.  
  779.   if (strcmp (info_line, info) != 0)
  780.   {
  781.     strcpy (info_line, info) ;
  782.     if (na.toggles.record) NA_WriteToRecordFile (info_line) ;
  783.     NA_ClearGraph () ;
  784.   }
  785. }
  786.  
  787.  
  788.  
  789. /*****************************************************************************
  790.   FUNCTION : NA_DrawPoint
  791.  
  792.   PURPOSE  : draws a single point into the network analyzer pixmap
  793.              if mode = NA_DRAW_WINDOW then the point will be drawn into the 
  794.              window, too
  795.   RETURNS  : void
  796.   NOTES    :
  797.  
  798.   UPDATE   : 
  799. ******************************************************************************/
  800.  
  801. static void NA_DrawPoint (int i2, int mode)
  802.  
  803. {
  804.   int i1, x1, y1, x2, y2 ;
  805.  
  806.  
  807.   x2 = na.graph.x + (int) ((na.gd.x[i2] - na.hor.min) * na.hor.factor) ;
  808.   y2 = na.graph.y + 
  809.        na.graph.h - (int) ((na.gd.y[i2] - na.ver.min) * na.ver.factor) ;
  810.  
  811.   if (na.gd.lineflag[i2])
  812.   {
  813.     i1 = (i2 - 1 + MAX_ARRAY_SIZE) % MAX_ARRAY_SIZE ;
  814.  
  815.     x1 = na.graph.x + (int) ((na.gd.x[i1] - na.hor.min) * na.hor.factor) ;
  816.     y1 = na.graph.y + 
  817.          na.graph.h - (int) ((na.gd.y[i1] - na.ver.min) * na.ver.factor) ;
  818.  
  819.     XDrawLine  (na_Display, na_Pixmap, na_GC, x1, y1, x2, y2) ;
  820.  
  821.     if (mode == NA_DRAW_WINDOW)
  822.       XDrawLine  (na_Display, na_Window, na_GC, x1, y1, x2, y2) ;
  823.   }
  824.   else
  825.   {
  826.     XDrawPoint (na_Display, na_Pixmap, na_GC, x2, y2) ;
  827.  
  828.     if (mode == NA_DRAW_WINDOW)
  829.       XDrawPoint (na_Display, na_Window, na_GC, x2, y2) ;
  830.   }
  831.  
  832.   XDrawArc (na_Display, na_Pixmap, na_GC, x2-1, y2-1, 3, 3, 0, 359*64) ;
  833.  
  834.   if (mode == NA_DRAW_WINDOW)
  835.     XDrawArc (na_Display, na_Window, na_GC, x2-1, y2-1, 3, 3, 0, 359*64) ;
  836.  
  837. }
  838.  
  839.  
  840.  
  841. /*****************************************************************************
  842.   FUNCTION : NA_DrawGraph
  843.  
  844.   PURPOSE  : draws the graph  
  845.   RETURNS  : void 
  846.   NOTES    :
  847.  
  848.   UPDATE   : 
  849. ******************************************************************************/
  850.  
  851. static void NA_DrawGraph (void) 
  852.  
  853. {
  854.   int  j , i, no_of_points ;
  855.  
  856.  
  857.   if (na.gd.wrapped)
  858.   {
  859.     no_of_points = MAX_ARRAY_SIZE ;
  860.     i = na.gd.i ;
  861.   }
  862.   else
  863.   {
  864.     no_of_points = na.gd.i ;
  865.     i = 0 ;
  866.   }
  867.  
  868.   for (j = 0 ; j < no_of_points ; j ++) 
  869.   {
  870.     NA_DrawPoint (i, NA_DRAW_PIXMAP) ;
  871.     i = (i + 1) % MAX_ARRAY_SIZE ;
  872.   }
  873. }
  874.  
  875.  
  876.  
  877. /*****************************************************************************
  878.   FUNCTION : NA_DrawGrid
  879.  
  880.   PURPOSE  : draws the grid (only in the window !)
  881.   RETURNS  : void 
  882.   NOTES    :
  883.  
  884.   UPDATE   : 
  885. ******************************************************************************/
  886.  
  887. static void NA_DrawGrid (void) 
  888.  
  889. {
  890.   int  x, y, i, j ;
  891.  
  892.  
  893.   for  (i = 1 ; i < na.hor.grid ; i++)
  894.   {
  895.     x = (int) ((float) (i * na.graph.w) / (float) na.hor.grid) ;
  896.  
  897.     for (j = 0 ; j <= na.graph.h ; j += 3) 
  898.     {
  899.       XDrawPoint (na_Display, na_Window, na_GC, 
  900.                   na.graph.x + x, na.graph.y + na.graph.h - j) ;
  901.     }
  902.   }
  903.  
  904.   for (i = 1 ; i < na.ver.grid ; i++)
  905.   {
  906.     y = (int) ((float) (i * na.graph.h) / (float) na.ver.grid) ;
  907.  
  908.     for (j = 0 ; j <= na.graph.w ; j += 3)
  909.     {
  910.       XDrawPoint (na_Display, na_Window, na_GC, 
  911.                   na.graph.x + j, na.graph.y + na.graph.h - y) ;
  912.     }
  913.   }
  914. }
  915.  
  916.  
  917.  
  918. /*****************************************************************************
  919.   FUNCTION : NA_ClearGraph
  920.  
  921.   PURPOSE  : clears the graph in the window and in the pixmap
  922.   RETURNS  : void 
  923.   NOTES    :
  924.  
  925.   UPDATE   : 
  926. ******************************************************************************/
  927.  
  928. static void NA_ClearGraph (void)
  929.  
  930. {
  931.   NA_StopTest () ;
  932.  
  933.   XSetForeground (na_Display, na_GC, WhitePixel (na_Display, na_Screen)) ;
  934.   XFillRectangle (na_Display, na_Pixmap, na_GC, na.graph.x + 1, na.graph.y + 1,
  935.                   na.graph.w - 1, na.graph.h - 1);
  936.   XSetForeground (na_Display, na_GC, BlackPixel (na_Display, na_Screen)) ;
  937.  
  938.   XClearArea (na_Display, na_Window, na.graph.x + 1, na.graph.y + 1, 
  939.               na.graph.w - 1, na.graph.h - 1, 0) ;
  940.  
  941.   na.gd.time        = 1 ;
  942.   na.gd.i           = 0     ;
  943.   na.gd.no_data     = TRUE  ;
  944.   na.gd.wrapped     = FALSE ;
  945.   na.gd.lineflag[0] = FALSE ;
  946.  
  947.   if (na.toggles.grid) NA_DrawGrid () ;
  948. }
  949.  
  950.  
  951.  
  952. /*****************************************************************************
  953.   FUNCTION : NA_RedrawPixmap
  954.  
  955.   PURPOSE  : redraws the pixmap, but NOT the window 
  956.   RETURNS  : void 
  957.   NOTES    :
  958.  
  959.   UPDATE   : 
  960. ******************************************************************************/
  961.  
  962. static void NA_RedrawPixmap (void)
  963.  
  964. {
  965.   XRectangle  clip_recs[1] ;
  966.  
  967.  
  968.   clip_recs[0].x      = (short) 0 ;
  969.   clip_recs[0].y      = (short) 0 ;
  970.   clip_recs[0].width  = (unsigned short) na.pixmap.w ;
  971.   clip_recs[0].height = (unsigned short) na.pixmap.h ;
  972.  
  973.   XSetClipRectangles (na_Display, na_GC, 0, 0, clip_recs, 1, Unsorted) ;   
  974.  
  975.   XSetForeground (na_Display, na_GC, WhitePixel (na_Display, na_Screen)) ;
  976.   XFillRectangle (na_Display, na_Pixmap, na_GC, 0, 0, 
  977.                   na.pixmap.w, na.pixmap.h) ;
  978.   XSetForeground (na_Display, na_GC, BlackPixel (na_Display, na_Screen)) ;
  979.  
  980.   XDrawRectangle (na_Display, na_Pixmap, na_GC, 0, 0,
  981.                   na.pixmap.w  - 1, na.pixmap.h - 1) ;
  982.  
  983.   NA_DrawCS    () ;
  984.   NA_DrawInfo  () ;
  985.  
  986.   clip_recs[0].x      = (short)          na.graph.x ;
  987.   clip_recs[0].y      = (short)          na.graph.y ;
  988.   clip_recs[0].width  = (unsigned short) na.graph.w ;
  989.   clip_recs[0].height = (unsigned short) na.graph.h ;
  990.  
  991.   XSetClipRectangles (na_Display, na_GC, 0, 0, clip_recs, 1, Unsorted) ;   
  992.  
  993.   NA_DrawGraph () ;
  994. }
  995.  
  996.  
  997.  
  998. /*****************************************************************************
  999.   FUNCTION : NA_ShowPixmap
  1000.  
  1001.   PURPOSE  : copies the pixmap into the window 
  1002.   RETURNS  : void 
  1003.   NOTES    :
  1004.  
  1005.   UPDATE   : 
  1006. ******************************************************************************/
  1007.  
  1008. static void NA_ShowPixmap (void)
  1009.  
  1010. {
  1011.   XRectangle  clip_recs[1] ;
  1012.  
  1013.  
  1014.   clip_recs[0].x      = (short) 0 ;
  1015.   clip_recs[0].y      = (short) 0 ;
  1016.   clip_recs[0].width  = (unsigned short) na.pixmap.w ;
  1017.   clip_recs[0].height = (unsigned short) na.pixmap.h ;
  1018.  
  1019.   XSetClipRectangles (na_Display, na_GC, 0, 0, clip_recs, 1, Unsorted) ;   
  1020.  
  1021.   XClearArea (na_Display, na_Window, 0, 0, na.pixmap.w, na.pixmap.h, 0) ;
  1022.  
  1023.   XCopyArea  (na_Display, na_Pixmap, na_Window, na_GC, 0, 0,
  1024.               na.pixmap.w, na.pixmap.h, 0, 0) ;
  1025.  
  1026.   clip_recs[0].x      = (short)          na.graph.x ;
  1027.   clip_recs[0].y      = (short)          na.graph.y ;
  1028.   clip_recs[0].width  = (unsigned short) na.graph.w ;
  1029.   clip_recs[0].height = (unsigned short) na.graph.h ;
  1030.  
  1031.   XSetClipRectangles (na_Display, na_GC, 0, 0, clip_recs, 1, Unsorted) ;   
  1032.  
  1033.   if (na.toggles.grid) NA_DrawGrid () ;
  1034. }
  1035.  
  1036.  
  1037.  
  1038. /*****************************************************************************
  1039.   FUNCTION : NA_DrawNextPoint
  1040.  
  1041.   PURPOSE  : gets the next point and updates the graph
  1042.   RETURNS  : void
  1043.   NOTES    :
  1044.  
  1045.   UPDATE   : 
  1046. ******************************************************************************/
  1047.  
  1048. void NA_DrawNextPoint (void)
  1049.  
  1050. {
  1051.   char         buf[80]  ;
  1052.   struct Unit *unit_ptr ;
  1053.  
  1054.  
  1055.   if (! NA_NetworkAnalyzerIsOpen()) return ;
  1056.   if (! na.toggles.on)              return ;
  1057.  
  1058.  
  1059.   /* ---------------------------  check units  ----------------------------- */
  1060.  
  1061.   if (na.graphtype == NA_GRAPH_XY)
  1062.   {
  1063.     if ((na.hor.unit_no < 1) || (na.hor.unit_no > krui_getNoOfUnits()))
  1064.     {
  1065.       ui_confirmOk ("x : illegal unit no.")   ;
  1066.       na.toggles.on = FALSE ;
  1067.       ui_xSetToggleState (t_On, FALSE) ;
  1068.       return ;
  1069.     }
  1070.   }
  1071.  
  1072.   if (na.graphtype != NA_GRAPH_TE)
  1073.   {
  1074.     if ((na.ver.unit_no < 1) || (na.ver.unit_no > krui_getNoOfUnits()))
  1075.     {
  1076.       ui_confirmOk ("y : illegal unit no.") ; 
  1077.       na.toggles.on = FALSE ;
  1078.       ui_xSetToggleState (t_On, FALSE) ;
  1079.       return ;
  1080.     }
  1081.   }
  1082.   else  
  1083.   {
  1084.     if (na.error == NA_ERROR_SU)
  1085.     {
  1086.       if ((unit_ptr = kr_getUnitPtr (na.error_unit)) == NULL) 
  1087.       {
  1088.         ui_confirmOk ("unit j : illegal output unit no.") ;
  1089.         na.toggles.on = FALSE ;
  1090.         ui_xSetToggleState (t_On, FALSE) ;
  1091.         return ;
  1092.       }
  1093.  
  1094.       if (! IS_OUTPUT_UNIT (unit_ptr))
  1095.       {
  1096.         ui_confirmOk ("unit j : illegal output unit no.") ;
  1097.         na.toggles.on = FALSE ;
  1098.         ui_xSetToggleState (t_On, FALSE) ;
  1099.         return ;
  1100.       }
  1101.     }
  1102.   }
  1103.  
  1104.  
  1105.   /* -------------------------  get values  -------------------------- */
  1106.  
  1107.   if (na.graphtype == NA_GRAPH_XY)
  1108.   {
  1109.     if (na.hor.out) 
  1110.       na.gd.x[na.gd.i] = (float) krui_getUnitOutput     (na.hor.unit_no) ;
  1111.     else            
  1112.       na.gd.x[na.gd.i] = (float) krui_getUnitActivation (na.hor.unit_no) ;
  1113.  
  1114.   }
  1115.   else
  1116.   {
  1117.     na.gd.x[na.gd.i] = (float) na.gd.time ;
  1118.     na.gd.time++ ;
  1119.   }
  1120.  
  1121.   if (na.graphtype == NA_GRAPH_TE)
  1122.   {
  1123.     na.gd.y[na.gd.i] = NA_Error () ;
  1124.   }
  1125.   else
  1126.   {
  1127.     if (na.ver.out) 
  1128.       na.gd.y[na.gd.i] = (float) krui_getUnitOutput     (na.ver.unit_no) ;
  1129.     else            
  1130.       na.gd.y[na.gd.i] = (float) krui_getUnitActivation (na.ver.unit_no) ;
  1131.   }
  1132.  
  1133.   if ((na.toggles.line) && (!na.gd.no_data)) 
  1134.     na.gd.lineflag[na.gd.i] = True ;
  1135.  
  1136.   NA_DrawPoint (na.gd.i, NA_DRAW_WINDOW) ;
  1137.  
  1138.   if (na.toggles.record)
  1139.   { 
  1140.     sprintf (buf, "%-10f %-10f\n", na.gd.x[na.gd.i], na.gd.y[na.gd.i]) ;
  1141.     NA_WriteToRecordFile (buf) ;
  1142.   }
  1143.  
  1144.   na.gd.i = (na.gd.i + 1) % MAX_ARRAY_SIZE ;
  1145.  
  1146.   na.gd.no_data           = FALSE ;
  1147.   na.gd.lineflag[na.gd.i] = FALSE ;  
  1148.  
  1149.   if (na.gd.i == 0) na.gd.wrapped = TRUE ;
  1150. }
  1151.  
  1152.  
  1153.  
  1154. /*############################################################################
  1155.  
  1156.            N E T W O R K - A N A L Y Z E R       F U N C T I O N S 
  1157.  
  1158. ############################################################################*/
  1159.  
  1160.  
  1161. /*****************************************************************************
  1162.   FUNCTION : NA_ResizeWindow
  1163.  
  1164.   PURPOSE  : resizes the network analyzer widget
  1165.   RETURNS  : void
  1166.   NOTES    :
  1167.  
  1168.   UPDATE   : 
  1169. ******************************************************************************/
  1170.  
  1171. static void NA_ResizeWindow () 
  1172.  
  1173. {
  1174.   Cardinal   n ;
  1175.   Arg        args[10] ;
  1176.  
  1177.   int        s_hor, s_ver, b_hor, b_ver ;
  1178.   Dimension  w_width, w_height, b_width ;
  1179.  
  1180.  
  1181.   n = 0 ;
  1182.   XtSetArg    (args[n], XtNwidth  , &w_width ) ; n++ ;
  1183.   XtSetArg    (args[n], XtNheight , &w_height) ; n++ ;
  1184.   XtGetValues (w_Window, args, n) ;
  1185.  
  1186.   na.window.w = (unsigned int) w_width  ;
  1187.   na.window.h = (unsigned int) w_height ;
  1188.  
  1189.   n = 0 ;
  1190.   XtSetArg    (args[n], XtNhorizDistance, &s_hor) ; n++ ;
  1191.   XtSetArg    (args[n], XtNvertDistance , &s_ver) ; n++ ;
  1192.   XtGetValues (w_Screen, args, n) ;
  1193.  
  1194.   n = 0 ;
  1195.   XtSetArg    (args[n], XtNwidth         , &b_width) ; n++ ;
  1196.   XtSetArg    (args[n], XtNhorizDistance , &b_hor  ) ; n++ ;
  1197.   XtSetArg    (args[n], XtNvertDistance  , &b_ver  ) ; n++ ;
  1198.   XtGetValues (w_Buttons, args, n) ;
  1199.  
  1200.   na.pixmap.w = na.window.w - 1 * s_hor - (int) b_width - 2 * b_hor ;
  1201.   na.pixmap.h = na.window.h - 2 * s_ver ;
  1202.  
  1203.   na.graph.x = 50  ;
  1204.   na.graph.y = 10  ;
  1205.   na.graph.w = na.pixmap.w - na.graph.x - 20 ;
  1206.   na.graph.h = na.pixmap.h - na.graph.y - INFO_BORDER - 20 ;
  1207.  
  1208.   na_Pixmap = XCreatePixmap (na_Display, na_Window, na.pixmap.w, na.pixmap.h,
  1209.                              (unsigned int) na_Depth) ;
  1210.  
  1211.   na.hor.factor = (float) (na.graph.w) / (float) (na.hor.max - na.hor.min) ;
  1212.   na.ver.factor = (float) (na.graph.h) / (float) (na.ver.max - na.ver.min) ;
  1213.  
  1214.   XtResizeWidget (w_Screen, na.pixmap.w, na.pixmap.h, 0) ;
  1215.   XtMoveWidget   (w_Buttons, (Position) ((int) na.pixmap.w + s_hor + b_hor),
  1216.                   (Position) b_ver) ;
  1217.  
  1218.   NA_RedrawPixmap () ;
  1219.   NA_ShowPixmap   () ;
  1220. }
  1221.  
  1222.  
  1223.  
  1224. /*****************************************************************************
  1225.   FUNCTION : NA_EventProc
  1226.  
  1227.   PURPOSE  : event handler 
  1228.   RETURNS  : void
  1229.   NOTES    :
  1230.  
  1231.   UPDATE   :
  1232. ******************************************************************************/
  1233.  
  1234. static void NA_EventProc (Widget w, Display *display, XEvent *event)
  1235.  
  1236. {
  1237.   switch (event->type)
  1238.   {
  1239.     case Expose: 
  1240.     {
  1241.       if (event->xexpose.count == 0) NA_ShowPixmap () ;
  1242.       break ;
  1243.     }
  1244.  
  1245.     case ConfigureNotify:
  1246.     {
  1247.       XFreePixmap (na_Display, na_Pixmap) ;
  1248.       NA_ResizeWindow () ;
  1249.       break ;
  1250.     }    
  1251.   }
  1252. }
  1253.  
  1254.  
  1255.  
  1256. /*****************************************************************************
  1257.   FUNCTION : NA_ContinueTest 
  1258.  
  1259.   PURPOSE  : used to synchronize the execution of multiple test operations
  1260.   RETURNS  : 
  1261.   NOTES    :
  1262.  
  1263.   UPDATE   : 
  1264. ******************************************************************************/
  1265.  
  1266. Bool NA_ContinueTest (void)
  1267.  
  1268. {
  1269.   if (! NA_NetworkAnalyzerIsOpen ()) return (FALSE) ;
  1270.  
  1271.   if (--no_of_m_test > 0) return (TRUE) ; 
  1272.  
  1273.   NA_StopTest () ; 
  1274.   return (FALSE) ;
  1275. }
  1276.  
  1277.  
  1278.  
  1279. /*****************************************************************************
  1280.   FUNCTION : NA_StopTest 
  1281.  
  1282.   PURPOSE  : used to stop a m-test operation
  1283.   RETURNS  : void 
  1284.   NOTES    :
  1285.  
  1286.   UPDATE   : 
  1287. ******************************************************************************/
  1288.  
  1289. void NA_StopTest (void)
  1290.  
  1291. {
  1292.   if (NA_NetworkAnalyzerIsOpen ())
  1293.   {
  1294.     no_of_m_test  = 0 ;  
  1295.     ui_xSetToggleState (t_MTest, FALSE) ;
  1296.   }
  1297. }
  1298.  
  1299.  
  1300.  
  1301. /*****************************************************************************
  1302.   FUNCTION : NA_CallbackProc
  1303.  
  1304.   PURPOSE  : network analyzer callback function 
  1305.   RETURNS  : void 
  1306.   NOTES    :
  1307.  
  1308.   UPDATE   : 
  1309. ******************************************************************************/
  1310.  
  1311. static void NA_CallbackProc (Widget w, XtPointer client_data, 
  1312.                                        XtPointer call_data)
  1313.  
  1314. {
  1315.   if      (w == t_On) 
  1316.     na.toggles.on = ui_xGetToggleState (t_On) ;    
  1317.  
  1318.   else if (w == t_Line) 
  1319.     na.toggles.line = ui_xGetToggleState (t_Line) ;    
  1320.  
  1321.   else if (w == t_Grid)
  1322.   {
  1323.     if (na.toggles.grid = ui_xGetToggleState (t_Grid)) 
  1324.       NA_DrawGrid   () ;
  1325.     else           
  1326.       NA_ShowPixmap () ;
  1327.   }
  1328.  
  1329.   else if (w == b_Clear) NA_ClearGraph () ;
  1330.  
  1331.   else if (w == t_MTest)
  1332.   {
  1333.     if (ui_remoteIsCreated)
  1334.     {
  1335.       if (ui_xGetToggleState (t_MTest))
  1336.       {
  1337.         no_of_m_test = na.m_test ;
  1338.         ui_rem_testProc (NULL, NULL, NULL) ;
  1339.       }
  1340.       else
  1341.         ui_xSetToggleState (t_MTest, TRUE) ;
  1342.     }
  1343.     else
  1344.       ui_confirmOk ("remote panel not open") ;
  1345.   }
  1346.  
  1347.   else if (w == t_Record)
  1348.   {
  1349.     if (na.toggles.record = ui_xGetToggleState (t_Record)) 
  1350.       NA_OpenRecordFile  () ;
  1351.     else  
  1352.       NA_CloseRecordFile () ; 
  1353.   }
  1354.  
  1355.   else if (w == b_Done)
  1356.   {
  1357.     if (na.toggles.record) 
  1358.       ui_confirmOk ("Rec-file not closed !") ; 
  1359.     else 
  1360.     { 
  1361.       NA_StopTest () ;
  1362.  
  1363.       if (na_DisplayControlOpen != 0) 
  1364.       {
  1365.         XtDestroyWidget (w_DisplayControl) ;
  1366.         na_DisplayControlOpen = 0 ;
  1367.       }
  1368.  
  1369.       XFreePixmap (na_Display, na_Pixmap) ;
  1370.       XtDestroyWidget (w_NetworkAnalyzer) ; 
  1371.       na_Open = 0 ;
  1372.       na.toggles.on = FALSE ; 
  1373.     } 
  1374.   }
  1375.  
  1376. } 
  1377.  
  1378.  
  1379.  
  1380. /*****************************************************************************
  1381.   FUNCTION : NA_CreateNetworkAnalyzerWidget
  1382.  
  1383.   PURPOSE  : creates the network analyzer widget
  1384.   RETURNS  : void 
  1385.   NOTES    :
  1386.  
  1387.   UPDATE   : 
  1388. ******************************************************************************/
  1389.  
  1390. static void NA_CreateNetworkAnalyzerWidget (void)
  1391.  
  1392. { 
  1393.   Cardinal   n ; 
  1394.   Arg        args[15] ; 
  1395.   Widget     dummy ;
  1396.  
  1397.  
  1398.   n = 0;  
  1399.  
  1400.   w_NetworkAnalyzer = 
  1401.     XtCreatePopupShell ("Network Analyzer", topLevelShellWidgetClass,
  1402.                         ui_toplevel, args, n); 
  1403.  
  1404.   n = 0 ;
  1405.   XtSetArg (args[n], XtNheight   , (Dimension) na.window.h) ; n++ ;
  1406.   XtSetArg (args[n], XtNwidth    , (Dimension) na.window.w) ; n++ ;
  1407.   XtSetArg (args[n], XtNresizable, True                   ) ; n++ ;
  1408.  
  1409.   w_Window = 
  1410.   XtCreateManagedWidget ("form", formWidgetClass, w_NetworkAnalyzer, NULL, 0) ;
  1411.  
  1412.   n = 0 ;
  1413.   XtSetArg (args[n], XtNheight      , (Dimension) na.pixmap.h ) ; n++ ; 
  1414.   XtSetArg (args[n], XtNwidth       , (Dimension) na.pixmap.w ) ; n++ ;
  1415.   XtSetArg (args[n], XtNleft        , XtChainLeft             ) ; n++ ; 
  1416.   XtSetArg (args[n], XtNright       , XtChainLeft             ) ; n++ ; 
  1417.   XtSetArg (args[n], XtNtop         , XtChainTop              ) ; n++ ;
  1418.   XtSetArg (args[n], XtNbottom      , XtChainTop              ) ; n++ ;
  1419.   XtSetArg (args[n], XtNfromVert    , NULL                    ) ; n++ ; 
  1420.   XtSetArg (args[n], XtNresizable   , True                    ) ; n++ ;
  1421.   XtSetArg (args[n], XtNborderWidth , 0                       ) ; n++ ;
  1422.  
  1423.   w_Screen = 
  1424.     XtCreateManagedWidget("screen", formWidgetClass, w_Window, args, n) ;
  1425.  
  1426.   n = 0 ;
  1427.   XtSetArg (args[n], XtNfromVert    , NULL        ) ; n++ ; 
  1428.   XtSetArg (args[n], XtNfromHoriz   , w_Screen    ) ; n++ ; 
  1429.   XtSetArg (args[n], XtNleft        , XtChainLeft ) ; n++ ; 
  1430.   XtSetArg (args[n], XtNright       , XtChainLeft ) ; n++ ; 
  1431.   XtSetArg (args[n], XtNtop         , XtChainTop  ) ; n++ ;
  1432.   XtSetArg (args[n], XtNbottom      , XtChainTop  ) ; n++ ;
  1433.   XtSetArg (args[n], XtNresizable   , False       ) ; n++ ;
  1434.   XtSetArg (args[n], XtNborderWidth , 0           ) ; n++ ;
  1435.   XtSetArg (args[n], XtNvertDistance, 0           ) ; n++ ;
  1436.  
  1437.   w_Buttons = 
  1438.     XtCreateManagedWidget ("form", formWidgetClass, w_Window, args, n) ;
  1439.  
  1440.   t_On     = NA_CreateToggleItem ("on2"   , w_Buttons, NULL , NULL, NULL    ) ;
  1441.   t_Line   = NA_CreateToggleItem ("line"  , w_Buttons, NULL , NULL, t_On    ) ;
  1442.   t_Grid   = NA_CreateToggleItem ("grid"  , w_Buttons, NULL , NULL, t_Line  ) ;
  1443.   b_Clear  = NA_CreateButtonItem ("clear" , w_Buttons, NULL ,       t_Grid  ) ;
  1444.   dummy    = ui_xCreateLabelItem (" "     , w_Buttons, 6 * 8, NULL, b_Clear ) ;
  1445.   t_MTest  = NA_CreateToggleItem ("m_test", w_Buttons, NULL , NULL, dummy   ) ;
  1446.   dummy    = ui_xCreateLabelItem (" "     , w_Buttons, 6 * 8, NULL, t_MTest ) ;
  1447.   t_Record = NA_CreateToggleItem ("record", w_Buttons, NULL , NULL, dummy   ) ;
  1448.   dummy    = ui_xCreateLabelItem (" "     , w_Buttons, 6 * 8, NULL, t_Record) ;
  1449.   b_DCtrl  = NA_CreateButtonItem ("dctrl" , w_Buttons, NULL ,       dummy   ) ;
  1450.   b_Setup  = NA_CreateButtonItem ("setup" , w_Buttons, NULL ,       b_DCtrl ) ;
  1451.   b_Done   = NA_CreateButtonItem ("done2" , w_Buttons, NULL ,       b_Setup ) ;
  1452.  
  1453.   ui_xSetToggleState (t_On    , na.toggles.on    ) ; 
  1454.   ui_xSetToggleState (t_Line  , na.toggles.line  ) ; 
  1455.   ui_xSetToggleState (t_Grid  , na.toggles.grid  ) ; 
  1456.   ui_xSetToggleState (t_MTest , FALSE) ;
  1457.   ui_xSetToggleState (t_Record, na.toggles.record) ;
  1458.  
  1459.   XtAddCallback (t_On    , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1460.   XtAddCallback (t_Line  , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1461.   XtAddCallback (t_Grid  , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1462.   XtAddCallback (b_Clear , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1463.   XtAddCallback (t_MTest , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1464.   XtAddCallback (t_Record, XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1465.   XtAddCallback (b_Setup , XtNcallback, (XtCallbackProc)NA_OpenSetup   , NULL);
  1466.   XtAddCallback (b_Done  , XtNcallback, (XtCallbackProc)NA_CallbackProc, NULL);
  1467.   XtAddCallback (b_DCtrl , XtNcallback, (XtCallbackProc)NA_OpenDisplayControl, 
  1468.                  NULL);
  1469.  
  1470.  
  1471.   XtAddEventHandler (w_Screen, ExposureMask, FALSE, 
  1472.                      (XtEventHandler) NA_EventProc, NULL) ;
  1473.  
  1474.   XtAddEventHandler (w_Window, StructureNotifyMask, FALSE, 
  1475.                      (XtEventHandler) NA_EventProc, NULL) ;
  1476.    
  1477.   ui_checkWindowPosition (w_NetworkAnalyzer);
  1478.   XtPopup (w_NetworkAnalyzer, XtGrabNone);
  1479.  
  1480.   if (na_FirstCall)
  1481.   {
  1482.     n = 0 ;
  1483.     XtSetArg    (args[n], XtNwidth , &na_Width ) ; n++ ;  
  1484.     XtSetArg    (args[n], XtNheight, &na_Height) ; n++ ;
  1485.     XtGetValues (w_NetworkAnalyzer, args, n) ;
  1486.   }
  1487.  
  1488.   n = 0 ;
  1489.   XtSetArg    (args[n], XtNminWidth , na_Width ) ; n++ ;  
  1490.   XtSetArg    (args[n], XtNminHeight, na_Height) ; n++ ;
  1491.   XtSetValues (w_NetworkAnalyzer, args, n) ;
  1492.  
  1493.   na_Display    = XtDisplay      (w_Screen) ; 
  1494.   na_Window     = XtWindow       (w_Screen) ;
  1495.   na_FontStruct = XLoadQueryFont (na_Display, "6x12") ;
  1496.   na_GC         = XCreateGC      (na_Display, na_Window, ZERO, NULL) ;
  1497.   na_Screen     = DefaultScreen  (na_Display) ;
  1498.   na_Depth      = DisplayPlanes  (na_Display, na_Screen) ;
  1499.  
  1500.   XSetFont (na_Display, na_GC, (*na_FontStruct).fid) ;
  1501.  
  1502.   XSetBackground (na_Display, na_GC, WhitePixel (na_Display, na_Screen)) ;
  1503.   XSetForeground (na_Display, na_GC, BlackPixel (na_Display, na_Screen)) ; 
  1504.  
  1505.   XSetGraphicsExposures (na_Display, na_GC, 0) ;
  1506.  
  1507.   NA_ResizeWindow () ;
  1508.   na_Open = 1 ;
  1509. }
  1510.  
  1511.  
  1512.  
  1513. /*****************************************************************************
  1514.   FUNCTION : NA_OpenNetworkAnalyzer
  1515.  
  1516.   PURPOSE  : opens the network analyzer widget
  1517.   RETURNS  : void
  1518.   NOTES    :
  1519.  
  1520.   UPDATE   : 
  1521. ******************************************************************************/
  1522.  
  1523. void NA_OpenNetworkAnalyzer (Widget w, 
  1524.                              XtPointer client_data, 
  1525.                              XtPointer call_data)
  1526.  
  1527. {
  1528.   if (na_Open == 0)
  1529.   {
  1530.     no_of_m_test = 0 ;
  1531.  
  1532.     if (na_FirstCall) NA_ResetNetworkAnalyzer () ;
  1533.  
  1534.     NA_CreateNetworkAnalyzerWidget () ;
  1535.     na_FirstCall = FALSE ;
  1536.     na_DisplayControlOpen = 0 ;
  1537.    } 
  1538.    else
  1539.      ui_confirmOk ("network analyzer already open !") ;
  1540. }
  1541.  
  1542.  
  1543.  
  1544. /*############################################################################
  1545.  
  1546.                       S E T U P      F U N C T I O N S 
  1547.  
  1548. ############################################################################*/
  1549.  
  1550.  
  1551. /*****************************************************************************
  1552.   FUNCTION : NA_SetupGetValues
  1553.  
  1554.   PURPOSE  : gets data from setup
  1555.   RETURNS  : void 
  1556.   NOTES    :
  1557.  
  1558.   UPDATE   :
  1559. ******************************************************************************/
  1560.  
  1561. static void NA_SetupGetValues (void)
  1562.  
  1563. { 
  1564.   se.hor.grid  = ui_xIntFromAsciiWidget   (w_HorGrid) ;
  1565.   se.ver.min   = ui_xFloatFromAsciiWidget (w_VerMin ) ;  
  1566.   se.ver.max   = ui_xFloatFromAsciiWidget (w_VerMax ) ;  
  1567.   se.ver.grid  = ui_xIntFromAsciiWidget   (w_VerGrid) ;  
  1568.   se.m_test    = ui_xIntFromAsciiWidget   (w_MSteps ) ; 
  1569.   se.hor.min   = ui_xFloatFromAsciiWidget (w_HorMin)  ;
  1570.   se.hor.max   = ui_xFloatFromAsciiWidget (w_HorMax)  ;  
  1571.  
  1572.   if (se.graphtype == NA_GRAPH_XY)
  1573.   {
  1574.     se.hor.unit_no = ui_xIntFromAsciiWidget   (w_HorUnit) ;  
  1575.     se.hor.out     = ui_xGetToggleState       (t_HorOut)  ;
  1576.   }
  1577.   else
  1578.     se.period      = ui_xIntFromAsciiWidget   (w_Period)  ;
  1579.  
  1580.   if (se.graphtype == NA_GRAPH_TE)
  1581.   {
  1582.     if      (ui_xGetToggleState (t_Lin)) se.error = NA_ERROR_LIN ;
  1583.     else if (ui_xGetToggleState (t_Sqr)) se.error = NA_ERROR_SQR ;
  1584.     else                                 
  1585.     { 
  1586.       se.error      = NA_ERROR_SU  ;
  1587.       se.error_unit = ui_xIntFromAsciiWidget (w_Su) ;
  1588.     }
  1589.  
  1590.     se.ave = ui_xGetToggleState (t_Ave) ;
  1591.   }
  1592.   else 
  1593.   {
  1594.     se.ver.unit_no = ui_xIntFromAsciiWidget (w_VerUnit) ;  
  1595.     se.ver.out     = ui_xGetToggleState     (t_VerOut ) ;
  1596.   }
  1597.  
  1598.   if (!na.toggles.record) 
  1599.     ui_xStringFromAsciiWidget (w_RecFile, se.rec_filename, 30) ; 
  1600. }
  1601.  
  1602.  
  1603.  
  1604. /*****************************************************************************
  1605.   FUNCTION : NA_SetupCheckValues
  1606.  
  1607.   PURPOSE  : checks the new values
  1608.   RETURNS  : void 
  1609.   NOTES    :
  1610.  
  1611.   UPDATE   :
  1612. ******************************************************************************/
  1613.  
  1614. static Bool NA_SetupCheckValues (void)
  1615.  
  1616. {
  1617.   struct Unit *unit_ptr ;
  1618.  
  1619.  
  1620.   if (se.hor.grid < 0)           se.hor.grid = 0 ;
  1621.   if (se.hor.grid > na.graph.w)  se.hor.grid = na.graph.w ;
  1622.  
  1623.   if (se.ver.grid < 0)           se.ver.grid = 0 ;
  1624.   if (se.ver.grid > na.graph.h)  se.ver.grid = na.graph.h ;
  1625.  
  1626.   if (se.m_test  < 1) se.m_test  = 1 ;
  1627.   if (se.period  < 1) se.period  = 1 ;
  1628.  
  1629.   if (se.hor.min >= se.hor.max) 
  1630.   {
  1631.     ui_confirmOk (" x : min has to be less than max") ;
  1632.     return (False) ;
  1633.   }
  1634.  
  1635.   if (se.ver.min >= se.ver.max)
  1636.   {
  1637.     ui_confirmOk (" y : min has to be less than max") ;
  1638.     return (False) ;
  1639.   }
  1640.  
  1641.   if (se.graphtype == NA_GRAPH_XY)
  1642.   {
  1643.     if ((se.hor.unit_no < 1) || (se.hor.unit_no > krui_getNoOfUnits()))
  1644.     {
  1645.       ui_confirmOk ("x : illegal unit no.") ; 
  1646.       return (False) ;
  1647.     }
  1648.   }
  1649.  
  1650.   if (se.graphtype != NA_GRAPH_TE)
  1651.   {
  1652.     if ((se.ver.unit_no < 1) || (se.ver.unit_no > krui_getNoOfUnits()))
  1653.     {
  1654.       ui_confirmOk ("y : illegal unit no.") ; 
  1655.       return (False) ;
  1656.     }
  1657.   }
  1658.   else  
  1659.   {
  1660.     if (se.error == NA_ERROR_SU)
  1661.     {
  1662.       if ((unit_ptr = kr_getUnitPtr (se.error_unit)) == NULL) 
  1663.       {
  1664.         ui_confirmOk ("unit j : illegal output unit no.") ;
  1665.         return (False) ;
  1666.       }
  1667.  
  1668.       if (! IS_OUTPUT_UNIT (unit_ptr))
  1669.       {
  1670.         ui_confirmOk ("unit j : illegal output unit no.") ;
  1671.         return (False) ;
  1672.       }
  1673.     }
  1674.   }
  1675.  
  1676.   return (True) ;
  1677. }
  1678.  
  1679.  
  1680.  
  1681. /*****************************************************************************
  1682.   FUNCTION : NA_SetupSetValues
  1683.  
  1684.   PURPOSE  : sets the new values 
  1685.   RETURNS  : void 
  1686.   NOTES    :
  1687.  
  1688.   UPDATE   :
  1689. ******************************************************************************/
  1690.  
  1691. static void NA_SetupSetValues (void)
  1692.  
  1693. {
  1694.   if (se.graphtype != na.graphtype) NA_ClearGraph () ;
  1695.  
  1696.   na.graphtype     = se.graphtype  ;
  1697.   na.error         = se.error      ;
  1698.   na.error_unit    = se.error_unit ;
  1699.   na.ave           = se.ave        ;
  1700.   na.m_test        = se.m_test     ;
  1701.   na.period        = se.period     ;
  1702.   na.gd.time       = se.period     ;
  1703.  
  1704.   na.hor.min       = se.hor.min     ;
  1705.   na.hor.max       = se.hor.max     ;
  1706.   na.hor.unit_no   = se.hor.unit_no ;
  1707.   na.hor.grid      = se.hor.grid    ;
  1708.   na.hor.out       = se.hor.out     ;
  1709.  
  1710.   na.ver.min       = se.ver.min     ;
  1711.   na.ver.max       = se.ver.max     ;
  1712.   na.ver.unit_no   = se.ver.unit_no ;
  1713.   na.ver.grid      = se.ver.grid    ;
  1714.   na.ver.out       = se.ver.out     ;
  1715.  
  1716.   strcpy (na.rec_filename, se.rec_filename) ;
  1717.  
  1718.   na.hor.factor    = (float) (na.graph.w) / (na.hor.max - na.hor.min) ;
  1719.   na.ver.factor    = (float) (na.graph.h) / (na.ver.max - na.ver.min) ;
  1720.  
  1721. }
  1722.  
  1723.  
  1724.  
  1725. /*****************************************************************************
  1726.   FUNCTION : NA_SetupCallbackProc
  1727.  
  1728.   PURPOSE  : setup callback function  
  1729.   RETURNS  : void 
  1730.   NOTES    :
  1731.  
  1732.   UPDATE   : 
  1733. ******************************************************************************/
  1734.  
  1735. static void NA_SetupCallbackProc (Widget w, 
  1736.                                   XtPointer client_data, 
  1737.                                   XtPointer call_data)
  1738.  
  1739. {
  1740.   if      (w == t_XY)
  1741.   {
  1742.     if (ui_xGetToggleState (t_XY))
  1743.     {
  1744.       ui_xSetToggleState   (t_TY, False) ; 
  1745.       ui_xSetToggleState   (t_TE, False) ;
  1746.       NA_SetupGetValues    ()            ;
  1747. /*      NA_CreateSetupWidget (NA_GRAPH_XY) ; */
  1748.       XtDestroyWidget (w_Setup) ;
  1749.       XtDestroyWidget (w_box)   ;
  1750.       na.graphtype = NA_GRAPH_XY;
  1751.       NA_OpenSetup (w, client_data, call_data);
  1752.     }
  1753.     else 
  1754.       ui_xSetToggleState (t_XY, True) ;
  1755.   }
  1756.  
  1757.   else if (w == t_TY)
  1758.   {  
  1759.     if (ui_xGetToggleState (t_TY))
  1760.     {
  1761.       ui_xSetToggleState   (t_XY, False) ; 
  1762.       ui_xSetToggleState   (t_TE, False) ; 
  1763.       NA_SetupGetValues    ()            ;
  1764. /*      NA_CreateSetupWidget (NA_GRAPH_TY) ; */
  1765.       XtDestroyWidget (w_Setup) ;
  1766.       XtDestroyWidget (w_box)   ;
  1767.       na.graphtype =  NA_GRAPH_TY;
  1768.       NA_OpenSetup (w, client_data, call_data);
  1769.     }
  1770.     else 
  1771.       ui_xSetToggleState (t_TY, True) ;
  1772.   }
  1773.  
  1774.   else if (w == t_TE)
  1775.   {  
  1776.     if (ui_xGetToggleState (t_TE))
  1777.     {
  1778.       ui_xSetToggleState   (t_XY, False) ; 
  1779.       ui_xSetToggleState   (t_TY, False) ;
  1780.       NA_SetupGetValues    ()            ;
  1781. /*      NA_CreateSetupWidget (NA_GRAPH_TE) ; */
  1782.       XtDestroyWidget (w_Setup) ;
  1783.       XtDestroyWidget (w_box)   ;
  1784.       na.graphtype =  NA_GRAPH_TE;
  1785.       NA_OpenSetup (w, client_data, call_data);
  1786.     }
  1787.     else 
  1788.       ui_xSetToggleState (t_TE, True) ;
  1789.   }
  1790.  
  1791.   else if (w == t_HorOut)
  1792.   {
  1793.     if (ui_xGetToggleState (t_HorOut)) ui_xSetToggleState (t_HorAct, False) ;
  1794.     else                               ui_xSetToggleState (t_HorOut, True ) ;
  1795.   }
  1796.  
  1797.   else if (w == t_HorAct)
  1798.   {
  1799.     if (ui_xGetToggleState (t_HorAct)) ui_xSetToggleState (t_HorOut, False) ;
  1800.     else                               ui_xSetToggleState (t_HorAct, True ) ;
  1801.   }
  1802.  
  1803.   else if (w == t_VerOut)
  1804.   {
  1805.     if (ui_xGetToggleState (t_VerOut)) ui_xSetToggleState (t_VerAct, False) ;
  1806.     else                               ui_xSetToggleState (t_VerOut, True ) ;
  1807.   }
  1808.  
  1809.   else if (w == t_VerAct)
  1810.   {
  1811.     if (ui_xGetToggleState (t_VerAct)) ui_xSetToggleState (t_VerOut, False) ;
  1812.     else                               ui_xSetToggleState (t_VerAct, True ) ;
  1813.   }
  1814.  
  1815.   else if (w == t_Lin)
  1816.   {  
  1817.     if (ui_xGetToggleState (t_Lin))
  1818.     {
  1819.       ui_xSetToggleState (t_Sqr, False) ; 
  1820.       ui_xSetToggleState (t_Su , False) ; 
  1821.     }
  1822.     else                               
  1823.       ui_xSetToggleState (t_Lin, True ) ;
  1824.   }
  1825.  
  1826.   else if (w == t_Sqr)
  1827.   {  
  1828.     if (ui_xGetToggleState (t_Sqr)) 
  1829.     {
  1830.       ui_xSetToggleState (t_Lin, False) ; 
  1831.       ui_xSetToggleState (t_Su , False) ; 
  1832.     }
  1833.     else                               
  1834.       ui_xSetToggleState (t_Sqr, True ) ;
  1835.   }
  1836.  
  1837.   else if (w == t_Su)
  1838.   {  
  1839.     if (ui_xGetToggleState (t_Su)) 
  1840.     {
  1841.       ui_xSetToggleState (t_Lin, False) ; 
  1842.       ui_xSetToggleState (t_Sqr, False) ; 
  1843.     }
  1844.     else                               
  1845.       ui_xSetToggleState (t_Su , True ) ;
  1846.   }
  1847.  
  1848.   else if (w == b_Cancel) XtDestroyWidget (w_Setup) ;
  1849.  
  1850.   else if (w == b_DoneS)
  1851.   { 
  1852.     NA_SetupGetValues () ;
  1853.     
  1854.     if (NA_SetupCheckValues ())
  1855.     {
  1856.       NA_SetupSetValues () ;
  1857.       NA_RedrawPixmap   () ;
  1858.       NA_ShowPixmap     () ;
  1859.       XtDestroyWidget   (w_Setup) ;
  1860.     }
  1861.   }
  1862.  
  1863. }
  1864.  
  1865.  
  1866.  
  1867. /*****************************************************************************
  1868.   FUNCTION : NA_CreateSetupWidget
  1869.  
  1870.   PURPOSE  : creates the setup widget 
  1871.   RETURNS  : void 
  1872.   NOTES    :
  1873.  
  1874.   UPDATE   :
  1875. ******************************************************************************/
  1876.  
  1877. static void NA_CreateSetupWidget (int graphtype)
  1878.  
  1879. {
  1880.   Widget     w_OldSetup, w_form[10] ;
  1881.   Widget     w_top, w_left, dummy ;
  1882.  
  1883.   Cardinal   n, f ;
  1884.   Arg        args[15] ;
  1885.   Position   setup_x, setup_y ;
  1886.   Dimension  width, height, max_width ;
  1887.  
  1888.   char       buf[80] ;
  1889.  
  1890.  
  1891.   w_OldSetup = w_Setup ;
  1892.  
  1893.   if (w_OldSetup == NULL)
  1894.   {
  1895.     XtTranslateCoords (b_Setup, 20, 8, &setup_x, &setup_y) ;
  1896.  
  1897.     n = 0;
  1898.     XtSetArg (args[n], XtNx        , setup_x      ) ; n++ ;
  1899.     XtSetArg (args[n], XtNy        , setup_y      ) ; n++ ;
  1900.  
  1901.     w_Setup = XtCreatePopupShell    ("Network Analyzer Setup", 
  1902.                                      transientShellWidgetClass, 
  1903.                                      ui_toplevel, args, n) ;
  1904.  
  1905.   }
  1906.   else
  1907.   {
  1908.     XtUnmapWidget   (w_Setup) ;
  1909.     XtDestroyWidget (w_box)   ;
  1910.   }
  1911.  
  1912.   se.graphtype = graphtype ;
  1913.   
  1914.   n = 0 ;
  1915.  
  1916.   w_box   = XtCreateManagedWidget ("box", boxWidgetClass, w_Setup, args, n) ;
  1917.  
  1918.  
  1919.   f = 0 ;
  1920.   n = 0 ;
  1921.  
  1922.   XtSetArg (args[n], XtNwidth , 10) ; n++ ; 
  1923.   XtSetArg (args[n], XtNheight, 10) ; n++ ;
  1924.  
  1925.  
  1926.   /* ---------------------------  setup part 1  ---------------------------- */
  1927.  
  1928.   w_form[f] = XtCreateManagedWidget ("form", formWidgetClass, w_box, args, n) ;
  1929.  
  1930.   dummy = ui_xCreateLabelItem ("graph :", w_form[f], 10 * 8, NULL , NULL) ;
  1931.   t_XY  = NA_CreateToggleItem ("xy"     , w_form[f], NULL  , dummy, NULL) ;
  1932.   dummy = ui_xCreateLabelItem ("  "     , w_form[f],  2 * 8, t_XY , NULL) ;
  1933.   t_TY  = NA_CreateToggleItem ("ty"     , w_form[f], NULL  , dummy, NULL) ;
  1934.   dummy = ui_xCreateLabelItem ("  "     , w_form[f],  2 * 8, t_TY , NULL) ;
  1935.   t_TE  = NA_CreateToggleItem ("te"     , w_form[f], NULL  , dummy, NULL) ;
  1936.  
  1937.   ui_xSetToggleState (t_XY, se.graphtype == NA_GRAPH_XY) ; 
  1938.   ui_xSetToggleState (t_TY, se.graphtype == NA_GRAPH_TY) ;
  1939.   ui_xSetToggleState (t_TE, se.graphtype == NA_GRAPH_TE) ; 
  1940.  
  1941.   XtAddCallback 
  1942.     (t_XY, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  1943.   XtAddCallback 
  1944.     (t_TY, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  1945.   XtAddCallback 
  1946.     (t_TE, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  1947.  
  1948.   f++ ;
  1949.  
  1950.  
  1951.   /* ---------------------------  setup part 2  ---------------------------- */
  1952.  
  1953.   w_form[f] = XtCreateManagedWidget ("form", formWidgetClass, w_box, args, n) ;
  1954.  
  1955.   strcpy (buf, "axis    min     max    unit   grid") ;
  1956.  
  1957.   w_top  = ui_xCreateLabelItem (buf, w_form[f], 33 * 8 - 6, NULL, NULL ) ;
  1958.  
  1959.   if (se.graphtype == NA_GRAPH_XY) strcpy (buf, " x ") ;
  1960.   else                             strcpy (buf, " t ") ;
  1961.  
  1962.   w_left = ui_xCreateLabelItem (buf, w_form[f], 5 * 8, NULL, w_top) ;
  1963.  
  1964.   sprintf (buf, "%5.3f", se.hor.min) ;
  1965.   w_HorMin  = w_left =
  1966.     ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1967.  
  1968.   sprintf (buf, "%5.3f", se.hor.max) ;
  1969.   w_HorMax  = w_left =
  1970.     ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1971.  
  1972.   if (se.graphtype == NA_GRAPH_XY)
  1973.   {
  1974.     sprintf (buf, "%d", se.hor.unit_no) ;
  1975.     w_HorUnit = w_left =
  1976.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1977.   }
  1978.   else
  1979.     w_left =
  1980.       ui_xCreateLabelItem  (" ", w_form[f],   2 + 6 * 8, w_left, w_top) ;
  1981.  
  1982.   sprintf (buf, "%d", se.hor.grid) ;
  1983.   w_HorGrid  = w_top =
  1984.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1985.  
  1986.   if (se.graphtype == NA_GRAPH_TE) strcpy (buf, " e ") ;
  1987.   else                             strcpy (buf, " y ") ;
  1988.  
  1989.   w_left  =
  1990.       ui_xCreateLabelItem  (buf, w_form[f],       5 * 8, NULL  , w_top) ;
  1991.  
  1992.   sprintf (buf, "%5.3f", se.ver.min) ;
  1993.   w_VerMin  = w_left =
  1994.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1995.  
  1996.   sprintf (buf, "%5.3f", se.ver.max) ;
  1997.   w_VerMax  = w_left =
  1998.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  1999.  
  2000.   if (se.graphtype != NA_GRAPH_TE)
  2001.   {
  2002.     sprintf (buf, "%d", se.ver.unit_no) ;
  2003.     w_VerUnit  = w_left =
  2004.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  2005.   }
  2006.   else
  2007.     w_left =
  2008.       ui_xCreateLabelItem  (" ", w_form[f],   6 * 8 + 2, w_left, w_top) ;
  2009.  
  2010.   sprintf (buf, "%d", se.ver.grid) ;
  2011.   w_VerGrid  = w_left =
  2012.       ui_xCreateDialogItem (" ", w_form[f], buf,  6 * 8, w_left, w_top) ;
  2013.  
  2014.   f++ ;
  2015.  
  2016.  
  2017.   /* ---------------------------  setup part 3  ---------------------------- */
  2018.  
  2019.   w_form[f] = XtCreateManagedWidget ("form", formWidgetClass, w_box, args, n) ;
  2020.  
  2021.   w_top = NULL ;
  2022.  
  2023.   if (se.graphtype == NA_GRAPH_XY)
  2024.   {
  2025.     dummy    = ui_xCreateLabelItem ("x unit :", w_form[f], 10*8, NULL, w_top) ;
  2026.     t_HorOut = NA_CreateToggleItem ("out", w_form[f], NULL, dummy    , w_top) ;
  2027.     dummy    = ui_xCreateLabelItem ("  " , w_form[f], 2*8 , t_HorOut , w_top) ;
  2028.     t_HorAct = NA_CreateToggleItem ("act", w_form[f], NULL, dummy    , w_top) ;
  2029.  
  2030.     ui_xSetToggleState (t_HorOut,  se.hor.out) ;
  2031.     ui_xSetToggleState (t_HorAct, !se.hor.out) ;
  2032.  
  2033.     XtAddCallback 
  2034.       (t_HorOut, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2035.     XtAddCallback 
  2036.       (t_HorAct, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2037.  
  2038.     w_top = dummy ;
  2039.   }
  2040.  
  2041.   if (se.graphtype != NA_GRAPH_TE) 
  2042.   {
  2043.     dummy    = ui_xCreateLabelItem ("y unit :", w_form[f], 10*8, NULL, w_top) ;
  2044.     t_VerOut = NA_CreateToggleItem ("out", w_form[f], NULL, dummy    , w_top) ;
  2045.     dummy    = ui_xCreateLabelItem ("  " , w_form[f], 2*8 , t_VerOut , w_top) ;
  2046.     t_VerAct = NA_CreateToggleItem ("act", w_form[f], NULL, dummy    , w_top) ;
  2047.  
  2048.     ui_xSetToggleState (t_VerOut,  se.ver.out) ;
  2049.     ui_xSetToggleState (t_VerAct, !se.ver.out) ;
  2050.  
  2051.     XtAddCallback 
  2052.       (t_VerOut, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2053.     XtAddCallback 
  2054.       (t_VerAct, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2055.   }
  2056.   else
  2057.   {
  2058.     dummy = ui_xCreateLabelItem ("error  :", w_form[f], 8 * 8, NULL , w_top) ;
  2059.     t_Lin = NA_CreateToggleItem ("e_lin"   , w_form[f], NULL , dummy, w_top) ;
  2060.     dummy = ui_xCreateLabelItem ("  "      , w_form[f], 1 * 8, t_Lin, w_top) ;
  2061.     t_Sqr = NA_CreateToggleItem ("e_sqr"   , w_form[f], NULL , dummy, w_top) ;
  2062.     dummy = ui_xCreateLabelItem ("  "      , w_form[f], 1 * 8, t_Sqr, w_top) ;
  2063.     t_Su  = NA_CreateToggleItem ("e_su"    , w_form[f], NULL , dummy, w_top) ;
  2064.  
  2065.     w_top = t_Lin ;
  2066.     sprintf (buf, "%d", se.error_unit) ;
  2067.  
  2068.     dummy = ui_xCreateLabelItem ("unit j :", w_form[f], 8 * 8, NULL , w_top) ;
  2069.     w_Su  = ui_xCreateDialogItem(" ",   w_form[f], buf, 6 * 8, dummy, w_top) ;
  2070.     dummy = ui_xCreateLabelItem ("  "      , w_form[f], 9*8+2, w_Su , w_top) ;
  2071.     t_Ave = NA_CreateToggleItem ("ave"     , w_form[f], NULL , dummy, w_top) ;
  2072.  
  2073.     ui_xSetToggleState (t_Lin, (se.error == NA_ERROR_LIN)) ;
  2074.     ui_xSetToggleState (t_Sqr, (se.error == NA_ERROR_SQR)) ;
  2075.     ui_xSetToggleState (t_Su , (se.error == NA_ERROR_SU )) ;
  2076.     ui_xSetToggleState (t_Ave,  se.ave) ;
  2077.  
  2078.     XtAddCallback 
  2079.       (t_Lin, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2080.     XtAddCallback 
  2081.       (t_Sqr, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2082.     XtAddCallback 
  2083.       (t_Su , XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2084.   }
  2085.  
  2086.   f++ ;
  2087.  
  2088.  
  2089.   /* ---------------------------  setup part 4  ---------------------------- */
  2090.  
  2091.   w_form[f] = XtCreateManagedWidget ("form", formWidgetClass, w_box, args, n) ;
  2092.  
  2093.   w_left = w_top =
  2094.     ui_xCreateLabelItem  ("m-test :", w_form[f], 8 * 8, NULL  , NULL) ;
  2095.  
  2096.   sprintf (buf, "%d", se.m_test) ;
  2097.   w_MSteps = ui_xCreateDialogItem (" ", w_form[f], buf, 6 * 8, w_left, NULL) ;
  2098.  
  2099.  
  2100.   if (se.graphtype != NA_GRAPH_XY)
  2101.   {
  2102.     w_left =                              
  2103.       ui_xCreateLabelItem ("time   :", w_form[f], 8 * 8, NULL , w_top) ;
  2104.  
  2105.     sprintf (buf, "%d", se.period) ;
  2106.       w_Period =
  2107.         ui_xCreateDialogItem (" ", w_form[f], buf, 6 * 8, w_left   , w_top) ;
  2108.   }
  2109.  
  2110.   f++ ;
  2111.  
  2112.  
  2113.   /* ---------------------------  setup part 5  ---------------------------- */
  2114.  
  2115.   w_form[f] = XtCreateManagedWidget ("form", formWidgetClass, w_box, args, n) ;
  2116.  
  2117.   dummy =
  2118.       ui_xCreateLabelItem  ("record file :", w_form[f], 14 * 8, NULL, NULL) ;
  2119.  
  2120.   if (na.toggles.record)
  2121.     dummy = 
  2122.       ui_xCreateLabelItem  (se.rec_filename, w_form[f], 32 * 8, NULL, dummy) ;
  2123.   else
  2124.     w_RecFile =
  2125.       ui_xCreateDialogItem (" ", w_form[f], se.rec_filename, 32 * 8, NULL, 
  2126.                             dummy) ;
  2127.  
  2128.   f++ ;
  2129.  
  2130.  
  2131.   /* ---------------------------  setup part 6  ---------------------------- */
  2132.  
  2133.   if (f > 0) w_top = w_form[f-1] ;
  2134.   else       w_top = NULL ;
  2135.  
  2136.   b_DoneS  = NA_CreateButtonItem ("done2" , w_box, NULL   , w_top) ;
  2137.   b_Cancel = NA_CreateButtonItem ("cancel", w_box, b_DoneS, w_top) ;
  2138.  
  2139.   XtAddCallback 
  2140.     (b_DoneS , XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2141.  
  2142.   XtAddCallback 
  2143.     (b_Cancel, XtNcallback, (XtCallbackProc) NA_SetupCallbackProc, NULL) ;
  2144.  
  2145.  
  2146.   /* ---------------  popup new setup, destroy old setup  ------------------ */
  2147.  
  2148.   if (w_OldSetup == NULL){
  2149.       ui_checkWindowPosition (w_Setup);
  2150.       XtPopup (w_Setup, XtGrabExclusive) ;
  2151.   }
  2152.  
  2153.   XtMapWidget (w_Setup) ;
  2154.  
  2155.  
  2156.   /* ------------------------  resize widgets  ----------------------------- */
  2157.  
  2158.   max_width = 0 ;
  2159.  
  2160.   for (n = 0 ; n < f ; n++)
  2161.   {
  2162.     XtSetArg    (args[0]  , XtNwidth, &width) ;
  2163.     XtGetValues (w_form[n], args    ,  1    ) ;
  2164.  
  2165.     if (width > max_width) max_width = width ;
  2166.   }
  2167.  
  2168.   for (n = 0 ; n < f ; n++)
  2169.   {
  2170.     XtSetArg    (args[0]  , XtNwidth,  width) ;
  2171.     XtSetValues (w_form[n], args    ,  1    ) ;
  2172.   }
  2173.  
  2174. /*
  2175.   n = 0 ;
  2176.   XtSetArg    (args[n], XtNwidth    , &width ) ; n++ ;
  2177.   XtSetArg    (args[n], XtNheight   , &height) ; n++ ;
  2178.   XtGetValues (w_Setup, args        ,  n     ) ;
  2179.  
  2180.   n = 0 ;
  2181.   XtSetArg    (args[n], XtNminWidth ,  width ) ; n++ ;
  2182.   XtSetArg    (args[n], XtNminHeight,  height) ; n++ ;
  2183.   XtSetArg    (args[n], XtNmaxWidth ,  width ) ; n++ ;
  2184.   XtSetArg    (args[n], XtNmaxHeight,  height) ; n++ ;
  2185.   XtSetValues (w_Setup, args        ,  n     ) ;
  2186. */
  2187. }
  2188.  
  2189.  
  2190.  
  2191. /*****************************************************************************
  2192.   FUNCTION : NA_OpenSetup
  2193.  
  2194.   PURPOSE  : gets the actual parameters and opens the setup widget
  2195.   RETURNS  : void 
  2196.   NOTES    :
  2197.  
  2198.   UPDATE   : 
  2199. ******************************************************************************/
  2200.  
  2201. static void NA_OpenSetup (Widget w, 
  2202.                           XtPointer client_data,
  2203.                           XtPointer call_data)
  2204.  
  2205. {
  2206.   se.hor.min     = na.hor.min     ;
  2207.   se.hor.max     = na.hor.max     ;
  2208.   se.hor.factor  = na.hor.factor  ;
  2209.   se.hor.unit_no = na.hor.unit_no ;
  2210.   se.hor.grid    = na.hor.grid    ;
  2211.   se.hor.out     = na.hor.out     ;
  2212.  
  2213.   se.ver.min     = na.ver.min     ;
  2214.   se.ver.max     = na.ver.max     ;
  2215.   se.ver.factor  = na.ver.factor  ;
  2216.   se.ver.unit_no = na.ver.unit_no ;
  2217.   se.ver.grid    = na.ver.grid    ;
  2218.   se.ver.out     = na.ver.out     ;
  2219.  
  2220.   se.error       = na.error       ;
  2221.   se.error_unit  = na.error_unit  ;
  2222.   se.ave         = na.ave         ;
  2223.   se.period      = na.gd.time     ;
  2224.   se.m_test      = na.m_test      ;
  2225.  
  2226.   strcpy (se.rec_filename, na.rec_filename) ;
  2227.  
  2228.   w_Setup = NULL ;
  2229.  
  2230.   NA_CreateSetupWidget (na.graphtype) ;
  2231. }
  2232.  
  2233.  
  2234.  
  2235. /*****************************************************************************
  2236.   FUNCTION : NA_DControlCallbackProc
  2237.  
  2238.   PURPOSE  : display control callback function  
  2239.   RETURNS  : void 
  2240.   NOTES    :
  2241.  
  2242.   UPDATE   : 
  2243. ******************************************************************************/
  2244.  
  2245. static void NA_DControlCallbackProc (Widget w, 
  2246.                                      XtPointer client_data, 
  2247.                                      XtPointer call_data)
  2248.  
  2249. {
  2250.   float new_value ;
  2251.  
  2252.  
  2253.   if      (w == b_HorHalf)
  2254.   {  
  2255.     new_value = na.hor.min + (na.hor.max - na.hor.min) / 2 ;     
  2256.     if (na.hor.min < new_value) na.hor.max = new_value ;
  2257.   }
  2258.  
  2259.   else if (w == b_HorDouble)
  2260.   {
  2261.     new_value = na.hor.min + (na.hor.max - na.hor.min) * 2 ;     
  2262.     if (na.hor.min < new_value) na.hor.max = new_value ;
  2263.   } 
  2264.  
  2265.   else if (w == b_HorLeft)
  2266.   {
  2267.     new_value  = (na.hor.max - na.hor.min) / (float) na.hor.grid ;
  2268.     na.hor.min = na.hor.min - new_value ;
  2269.     na.hor.max = na.hor.max - new_value ;
  2270.   } 
  2271.  
  2272.   else if (w == b_HorLLeft)
  2273.   {
  2274.     new_value  = na.hor.max - na.hor.min ;
  2275.     na.hor.min = na.hor.min - new_value ;
  2276.     na.hor.max = na.hor.max - new_value ;
  2277.   } 
  2278.  
  2279.   else if (w == b_HorRight)
  2280.   {
  2281.     new_value  = (na.hor.max - na.hor.min) / (float) na.hor.grid ;
  2282.     na.hor.min = na.hor.min + new_value ;
  2283.     na.hor.max = na.hor.max + new_value ;
  2284.   } 
  2285.  
  2286.   else if (w == b_HorRRight)
  2287.   {
  2288.     new_value  = na.hor.max - na.hor.min ;
  2289.     na.hor.min = na.hor.min + new_value ;
  2290.     na.hor.max = na.hor.max + new_value ;
  2291.   } 
  2292.  
  2293.   else if (w == b_VerHalf)
  2294.   {
  2295.     new_value = na.ver.min + (na.ver.max - na.ver.min) / 2 ;     
  2296.     if (na.ver.min < new_value) na.ver.max = new_value ;
  2297.   } 
  2298.  
  2299.   else if (w == b_VerDouble)
  2300.   {
  2301.     new_value = na.ver.min + (na.ver.max - na.ver.min) * 2 ;     
  2302.     if (na.ver.min < new_value) na.ver.max = new_value ;
  2303.   } 
  2304.  
  2305.   else if (w == b_VerUp)
  2306.   {
  2307.     new_value  = (na.ver.max - na.ver.min) / (float) na.ver.grid ;
  2308.     na.ver.min = na.ver.min + new_value ;
  2309.     na.ver.max = na.ver.max + new_value ;
  2310.   } 
  2311.  
  2312.   else if (w == b_VerUUp)
  2313.   {
  2314.     new_value  = na.ver.max - na.ver.min ;
  2315.     na.ver.min = na.ver.min + new_value ;
  2316.     na.ver.max = na.ver.max + new_value ;
  2317.   } 
  2318.  
  2319.   else if (w == b_VerDown)
  2320.   {
  2321.     new_value  = (na.ver.max - na.ver.min) / (float) na.ver.grid ;
  2322.     na.ver.min = na.ver.min - new_value ;
  2323.     na.ver.max = na.ver.max - new_value ;
  2324.   } 
  2325.  
  2326.   else if (w == b_VerDDown)
  2327.   {
  2328.     new_value  = na.ver.max - na.ver.min ;
  2329.     na.ver.min = na.ver.min - new_value ;
  2330.     na.ver.max = na.ver.max - new_value ;
  2331.   } 
  2332.  
  2333.   else if (w == b_DoneDC)
  2334.   {
  2335.     XtDestroyWidget (w_DisplayControl) ;
  2336.     na_DisplayControlOpen = 0 ; 
  2337.     return ;
  2338.   } 
  2339.  
  2340.   na.hor.factor = (float) na.graph.w / (float) (na.hor.max - na.hor.min) ;
  2341.   na.ver.factor = (float) na.graph.h / (float) (na.ver.max - na.ver.min) ;
  2342.  
  2343.   NA_RedrawPixmap () ;
  2344.   NA_ShowPixmap   () ;
  2345. }
  2346.  
  2347.  
  2348. /*****************************************************************************
  2349.   FUNCTION : NA_OpenDisplayControl
  2350.  
  2351.   PURPOSE  : open network analyzer display control window 
  2352.   RETURNS  : void 
  2353.   NOTES    :
  2354.  
  2355.   UPDATE   : 
  2356. ******************************************************************************/
  2357.  
  2358. static void NA_OpenDisplayControl (Widget w, 
  2359.                                    XtPointer client_data, 
  2360.                                    XtPointer call_data)
  2361.  
  2362. {
  2363.   Widget     w_box, w_form, w_dummy, w_top ;
  2364.   Dimension  width, height ;
  2365.   Cardinal   n  ;
  2366.   Arg        args[15] ;
  2367.  
  2368.  
  2369.   if (na_DisplayControlOpen != 0) return ;
  2370.  
  2371.   w_DisplayControl = 
  2372.     XtCreatePopupShell ("NA Display Control", 
  2373.                         topLevelShellWidgetClass, ui_toplevel, NULL, 0) ;
  2374.  
  2375.   w_box  =
  2376.     XtCreateManagedWidget ("box" , boxWidgetClass, w_DisplayControl, NULL, 0) ;
  2377.  
  2378.   w_form = XtCreateManagedWidget ("form", formWidgetClass, w_box, NULL, 0) ;
  2379.   w_top  = NULL ;
  2380.  
  2381.   w_dummy     = ui_xCreateLabelItem ("hor.: ", w_form, 6 * 8, NULL, w_top) ;
  2382.   b_HorHalf   = NA_CreateButtonItem ("half"  , w_form, w_dummy    , w_top) ;
  2383.   w_dummy     = ui_xCreateLabelItem (" ", w_form, 2*8, b_HorHalf  , w_top) ;
  2384.   b_HorLeft   = NA_CreateButtonItem ("left"  , w_form, w_dummy    , w_top) ;
  2385.   b_HorRight  = NA_CreateButtonItem ("right" , w_form, b_HorLeft , w_top) ;
  2386.   
  2387.   w_top = w_dummy ;
  2388.   w_dummy     = ui_xCreateLabelItem ("      ", w_form, 6 * 8, NULL, w_top) ;
  2389.   b_HorDouble = NA_CreateButtonItem ("double", w_form, w_dummy    , w_top) ;
  2390.   w_dummy     = ui_xCreateLabelItem (" ", w_form, 2*8, b_HorDouble, w_top) ;
  2391.   b_HorLLeft  = NA_CreateButtonItem ("lleft" , w_form, w_dummy    , w_top) ;
  2392.   b_HorRRight = NA_CreateButtonItem ("rright", w_form, b_HorLLeft , w_top) ;
  2393.  
  2394.   w_form = XtCreateManagedWidget ("form", formWidgetClass, w_box, NULL, 0) ;
  2395.   w_top  = NULL ;
  2396.  
  2397.   w_dummy     = ui_xCreateLabelItem ("ver.: ", w_form, 6 * 8, NULL, w_top) ;
  2398.   b_VerHalf   = NA_CreateButtonItem ("half"  , w_form, w_dummy    , w_top) ;
  2399.   w_dummy     = ui_xCreateLabelItem (" ", w_form, 2*8, b_VerHalf  , w_top) ;
  2400.   b_VerDown   = NA_CreateButtonItem ("down2" , w_form, w_dummy    , w_top) ;
  2401.   b_VerUp     = NA_CreateButtonItem ("up2"   , w_form, b_VerDown  , w_top) ;
  2402.   
  2403.   w_top = w_dummy ;
  2404.   w_dummy     = ui_xCreateLabelItem ("      ", w_form, 6 * 8, NULL, w_top) ;
  2405.   b_VerDouble = NA_CreateButtonItem ("double", w_form, w_dummy    , w_top) ;
  2406.   w_dummy     = ui_xCreateLabelItem (" ", w_form, 2*8, b_VerDouble, w_top) ;
  2407.   b_VerDDown  = NA_CreateButtonItem ("ddown" , w_form, w_dummy    , w_top) ;
  2408.   b_VerUUp    = NA_CreateButtonItem ("uup"   , w_form, b_VerDDown , w_top) ;
  2409.   
  2410.   b_DoneDC    = NA_CreateButtonItem ("done2" , w_box, NULL, w_form) ;
  2411.  
  2412.   XtAddCallback (b_HorHalf, XtNcallback, 
  2413.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2414.   XtAddCallback (b_HorDouble, XtNcallback, 
  2415.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2416.   XtAddCallback (b_HorLeft, XtNcallback, 
  2417.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2418.   XtAddCallback (b_HorLLeft, XtNcallback, 
  2419.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2420.   XtAddCallback (b_HorRight, XtNcallback, 
  2421.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2422.   XtAddCallback (b_HorRRight, XtNcallback, 
  2423.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2424.   XtAddCallback (b_VerHalf, XtNcallback, 
  2425.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2426.   XtAddCallback (b_VerDouble, XtNcallback, 
  2427.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2428.   XtAddCallback (b_VerUp, XtNcallback, 
  2429.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2430.   XtAddCallback (b_VerUUp, XtNcallback, 
  2431.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2432.   XtAddCallback (b_VerDown, XtNcallback, 
  2433.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2434.   XtAddCallback (b_VerDDown, XtNcallback, 
  2435.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2436.   XtAddCallback (b_DoneDC, XtNcallback, 
  2437.                  (XtCallbackProc) NA_DControlCallbackProc, NULL) ;
  2438.  
  2439.   ui_checkWindowPosition (w_DisplayControl);
  2440.   XtPopup (w_DisplayControl, XtGrabNone);
  2441.  
  2442.   n = 0 ;
  2443.   XtSetArg    (args[n], XtNwidth    , &width ) ; n++ ;
  2444.   XtSetArg    (args[n], XtNheight   , &height) ; n++ ;
  2445.   XtGetValues (w_DisplayControl, args, n) ;
  2446.  
  2447.   n = 0 ;
  2448.   XtSetArg    (args[n], XtNminWidth ,  width ) ; n++ ;
  2449.   XtSetArg    (args[n], XtNminHeight,  height) ; n++ ;
  2450.   XtSetArg    (args[n], XtNmaxWidth ,  width ) ; n++ ;
  2451.   XtSetArg    (args[n], XtNmaxHeight,  height) ; n++ ;
  2452.   XtSetValues (w_DisplayControl, args, n) ;
  2453.  
  2454.   na_DisplayControlOpen = 1 ;
  2455. }
  2456.  
  2457.  
  2458.  
  2459. /*****************************************************************************
  2460.                            E N D   O F   F I L E
  2461. ******************************************************************************/
  2462.  
  2463.  
  2464.  
  2465.